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IDENTIFICATION 
PRODUCT COW: AC E4S40-MC 
PRODUCT NAME: C/TSHDO TS11 DATA RE.LIAB 
PROOUCT DATE: IS MARCH 1984 
MAINTAINERj DIAGNOSTIC ENblNEt'RING 
AUTHOR: J. HITT 
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THE INFORMATION IN THIS D0CL*1ENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE ANO SHOULD NOT BF CONSTRUED AS A COMMITMENT Bt DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANt ERRORS THAT MA* APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFF ILIATEO COMPANIES. 

COPYRIGHT iC) 19:8,1**84 Hi DIGITAL EQUIPMENT CORPORATION 

THE > Oil OWING ARf TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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4^ USER DOCUMENTATION 

45 

44 
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?6 



46 

48 

4* GLOSSARY 

50 

M 

5J V.O GENERAL INFORMATION 

55 

54 1,1 PROGRAM ABSTRACT 

55 

St. 1.1.1 FUNCTIONAL DESCRIPTION 

5' 1.1.2 STRUCTURE OF PROGRAM 

58 1.1.3 MEMORY MAP 

59 1.1.4 DIAGNOSTIC INFORMATION 

60 1.1.4.1 SCOPE 

*1 1.1.4.2 tRROR RECOVERY 

t>- 1.1.4.3 WPTTE ERROR RECOVERY 

«?5 1.1,4.5.1 MEDIA/OPERATIONAL 

t>4 SELECTIVE WRI 7E -ERROR -RE 

*>$ 1,1.4.3.? OPERATIONAL WRIT£«ERRQR- 

*>*> 1.1,4.4 DIAGNOSTIC TIMING ADJUSTMENT 

6.' 

** 1,2 SYSTEM REQUIREMENTS 

69 

? 1,2.1 HARDWARE REQUIREMENTS 

*1 1.2.4? SOFTWARE REQUIREMENTS 

"I • , 

■""* 1.5 RELATED DOCUMENTS AND STANDARDS 

:4 



1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

1.5 ASSUMPTIONS 



; 9 1.6 DIAGNOSTIC HISTORY 

*iC 

61 

«« ; if.O On RATING INSTRUCTIONS 

8- 

84 

45 ,\ 1 HARDWARE PARAMETERS 

*' J lW > SOFTUARE PARAMETERS 

8H 

*■"* .\2.l TS04 COMMAND L.XST 

'^ 2»thJ DATA PATTERN* 

91 
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*V <\3 EXAMPLES Of SOFTWARE PARAMETER DIALOGUE 

°4 «?.3.1 BASIC FUNCTION AND DATA RELIABILITY 

*'» WITH ALL ERROR REPORTING ENABLED 

** 2.3,2 SCOPE LOOP SET UP IN BASIC FUNCTIONS 

*'•' 2.3,3 SCOPE LOOP SET UP IN DATA RELIABILITY 

100 2,4 EXECUTION TIMES 

101 

KV , .4.1 S» STEM CONFIGURATION 

103 £ t 4,2 TEST EXECUTION TIMES 

104 
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SEQ 0004 



3.0 



ERROR INFORMATION 

3,1 ERROR REPORTING 



3.1.1 
3.1.2 
3.1,3 
3.1.4 
3,1.5 



ERROR 01 - COMMAND PACKET ADDRESS IS NOT ON A M 
ERROR 02 - TS04 NOT READ 1 
ERROR 03 - NO RESPONSE ERRORS 
ERROR 04 - NO INTERRUPT ERROR 
SPECIAL CONDITION ERRORS 



3.1,6 
3.1. 7 
3.1.8 
3.1.9 

3.1.10 



3.1.5.1 
3.1.5,2 
3.1.5.3 
3.1.5.4 
3.1,5.5 
5.1.5.6 
3.1.5.7 
3.1.5.8 

ERROR 013 

ERROR 014 

ERROR 015 

ERROR 016 

ERROR 017 



ERROR 05 - TCCO, UNDEFINED SPECIAL COND 

ERROR 06 - TCC1. ATTENTION CONDITION 

ERROR 07 - TCC2, TAPE STATUS ALERT 

ERROR 08 - TCC3, FUNCTION REJECT 

ERROR 09 - TCC4. RECOVERABLE ERROR 

ERROR 010- TCC5. RECOVERABLE ERROR 

ERROR Oil- TCC6, UNRECOVERABLE ERROR 

ERROR 612- TCC7, FATAL SUBSYSTEM ERROR 

RFC NON-ZERO ERROR 
RETRY LIMIT EXCEEDED 
TOO MANY INTERRUPTS 
CAPSTAN RUNAWAY 
DATA COMPARE ERRORS 



3.2 



ERROR HALTS 



4.0 
5*0 



PERFORMANCE REPORT 



Ttb. SUMMARIES 



5.1 
5.2 

5. * 

5.4 
5.5 



TFST 
TEST 
TEST 
TEST 

TEST 



BASIC FUNCTIONS 

DATA RELIABILITY 

WRITE COMPATABILIM/WRITE UTILITY 

READ COMPATABlLITt/READ UTILITl 

EXECUTE OPERATOR SELECTED COMMAND 



.EQUENCt 
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145 b % Q DEVICE INFORMATION 

14 7 6.1 GENERAL 

148 b.c* UNIBUS INTERFACE SPECIFICATIONS 

14°> 6,3 BIT DEFINITIONS FOR TS11/T504 REGTSTFRS 

150 

151 6.3.1 TS11/TS04 REGISTER SUMMARY 

IV 6.3.2 TSU STATUS REGISTER CTSSR; 

153 6.3.3 EXTENDED STATUS REGISTER <• (XSTATC) 

154 #..3.4 EXTENDED STATUS REGISTER 1 (XSTATI) 

155 »..*.5 EXTENDED STATUS REGISTER ? (XSTAT?) 
150 6.3,6 EXTENDED STATUS REGISTER 3 (XSTAT3) 
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15",' 
1S8 
IS* 

1*0 
161 
IN? 
163 

1M 
16S 

166 

16? 
168 
16? 
170 

1 
1 
1 
1 
1 
1 
1 
1 
1 



73 
74 
7S 

'6 



'8 
'9 
180 
181 
182 
183 
184 
18 r j 
186 
18/ 
188 
189 
190 
191 

193 
194 



GL.Of.SARY 



ACT 
APT 

BYTE/RECORD/FILE COUNT 
BRF 



CMO 

COMMnND PACKET 
CMDPK* 



EXTENDED STATUS 
MESSAGE PACKET 

PC 

PSW 

RESIDUAL FRAME COUNT 
RFC 



SPECIAL CONDITION 
SPEC COND 



SEQ 0006 



AUTOMATED COMPUTER TEST SYSTEM 

AUTOMATED PRODUCT TEST SYSTEM 

IS STORED J'N THE 4TH WORD OF THE COMMAND 
PACKET AND IT'S USE BY THE TS04 DEPENDS 
ON THE TYPE OF COMMAND, 

TS04 COMMAND CSEE 2.3.14.1 FOR LIST OF COMMANDS) 

FOUR WORD PACKET IN IHE CPU MEMORY WHICH 
CONTAINS ALL INFORMATION NEEDED BY THE 
TS04 TO EXECUTE A COMMAND. 

FOUR WORDS OF TS04 STATUS WHICH ARE 
TRANSFERRED AS PART OF THE MESSAGE PACKET AT 
THE COMPLETION OF A COMMAND. 

SEVEN WORD PACKET IN THE CPU MEMORY INTO 
WHICH THE TS04 STORES STATUS AT THE 
COMPLETION OF A COMMAND. 

PROGRAM COUNTER 

PROCESSOR STATUS WORD 

THIS COUNT IS PART OF THE MESSAGE PACKET 
AND CONTAINS THE NUMBER OF BYTES/RECORDS 
/FILES REMAINING TO BE PROCESSED AT THE 
COMPLETION OF A COMMAND. 
TSS4 BIT15. WHEN SET, INDICATES THAT 
THE LAST COMMAND DID NOT COMPLETE WITH- 
OUT INCIDENT, 



TERMINATION CLASS CQUii THRfct BIT CODE IN THfc T3SR WHICH XNQX 



H 1. 
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1% 
v^ 

too 

SCI 

AV 

JOS 

JOA 

jo^ 

JOt> 

.no 
j.n 

213 



TCC 

TSBA 

TSDB 

TSSR 

XSTO 

XSTl 

XST2 

XST3 

XXQP* 



SEQ 0007 



CATF.S THE TYPE OP COMMAND TERMINATION. 

TAPE SYSTEM BUS ADDRESS REGISTER. 

TAPE SYSTEM DATA BUEFER REGISTER. 

TAPE SYSTEM STATUS REGISTER. 

EXTENDED STATUS REGISTER 

EXTENDED STATUS REGISTER 1 

EXTENDED STATUS REGISTER 2 

EXTENDED STATUS REGISTER 3 

XXDP* IS A "CATCH -ALL." NAME FQR A GROUP OE PQP-l 
DIAGNOSTIC PACKAGES AVAILABLE ON MULTIMEDIA. 
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234 
£35 
^?6 



MrtCUi 
0tf;49 



30(1046) 



06 APR. 84 

M*CNTQPt 



1.1 



08:51 PAGE 10 

GPRM COUNT OPTION 



1.0 GENERAL INFORMATION 



1, 1 PROGRAM ABSTRACT 



1.1.1 FUNCTIONAL DESCRIPTION 



THIS PROGRAM CAN BE USED AS 
TEST, A COMPATABILITY TEST, 
SELECTED COMMANDS, 

1.1.2 STRUCTURE OF PROGRAM 



SEQ 0008 



A BASIC FUNCTION TEST, A DATA RELIABILITY 
OR TO EXECUTE A SEQUENCE OF OPERATOR 



THIS DIAGNOSTIC IS A SINGLE PROGRAM 

FROM THE STANDPOINT OF THE DIAGNOSTIC USER, BUT IT CONTAINS A CONTROL 

MODULE RELEASED INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 



J'l 
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25/ 
2*8 

240 
241 
2<V 
24 5 
244 
245 
246 
24" 
248 
24? 
250 
251 
252 

255 

254 
255 
256 
257 

256 
259 
260 
261 
262 
263 
264 
265 
266 
26 / 
268 
269 
2 70 
2/1 

2 /2 

2/3 

274 
2/5 

276 

2/M 
279 



1.1.3 Mfc.MOR> MAP 







VICTOR 
AREA 



400 



STACK 



2000 



DIAGNOSTIC 



41000 



DIAGNOSTIC 
SUPERVISOR 



72000 



XXDP 



77777 



> REt MfMO SPACE ^ OR WR/RD BKRS OR OTHER PUR0SE5 

IS Al.l.OCAltU «> THE SUPERVISOR QN REQUEST OR CHUQSfcN 

Bi PROGRAMMER TO RESIDE BETUEEN THE D1AG ^NO THF 

SUPERVISOR. 
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280 1.1.4 DIAGNOSTIC INFORMATION 

281 

28? 1,1,4,1 SCOPE 

28b THIS DIAGNOSTIC CAN TEST UP TO 4 UNITS SIMULTANEOUSLY. THE 4 UNITS 

28o ARE ASSIGNEO LOGICAL UNIT NUMBERS - 3 BY THE DIAGNOSTIC. 

288 THERE ARE 5 TESTS IN THIS PROGRAM; 

289 

2^0 TEST 1 •• BASIC FUNCTIONS. 

291 TEST 2 - DATA RELIABILITY. 

292 TEST 3 - WRITE COMPATABILI TY/WRI IE UTILITY. 
2^5 TEST A - 2IAD COMPATABILI TY/READ UTILITY. 
294 TEST 5 - OPERATOR SELECTED SEQUENCE UTILITY. 
2^S 

29o 1,1,4,2 ERROR RECOVERY 

297 

298 ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITF TAPE MARK 

299 ERRORS UNLESS RECOVERY IS INHIBITED By THE OPERATOR. 

300 THE READ FORWARD/READ REVERSE RETRY LIMIT IS 16 (8 IN THE SAME DIRECTION 

301 AND 8 IN THE OPPOSITE DIRECTION), FOR MORE INFORMATION ON ERROR RECOVER 

302 PROCED 1ES, SEE SECTION 3,0 TERROR RLPURTING). 
305 

304 1.1.4.3 WRITE ERROR RECOVERY 

306 THERE ARE 2 DISTINCT, SELECTABLE WRITE -ERROR -RECOVERY ALGORITHMS; 

30 .» 1. MEDIA/OPERATIONAL SELECTIVE ALGORITHM 

306 2, OPERATIONAL ALGORITHM 

309 

in Bt DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO DISCERN 

31* MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES, 

312 

315 TO SELECT THE SECOND ALGORITHM; 

314 ANSWER • t* TO CHANGE SW U. ) ? 

315 ANSWER *N' TO BAD 1 APE SPOT DFTECTION CD Y ? 
316 

31-* WHEN ERROR RECOVERY IS INHIBIT tO. THE LATTER QUESTION IS NOT ASKED 

3ie AND BOTH ALGORITHMS ARE BYPASSED. 

3n 

320 1.1.4.3.1 MEDIA/OPERATIONAL SELECTIVE WRITE -ERROR-RECOVER> HLGORITHM 

321 

322 SCOPE 

323 

224 THE ALGORITHM DISCERNS MEDIA RELATED WRITE ERRORS FROM 

3: j S OPERATIONAL ONES, 

32 7 ALGORITHM 
328 

329 A WRITE RETRY SUBROUTINE IS CALLED BY THE RECOVERABLE ERROR SUBROUTINE 

350 ENTERED UPON DETECTIION OF A WRITE RECOVERABLE ERROR. 

351 THE WRITE RETRY SUBROUTINE REWRITES RECORD IN SAME SPOT ON TAP*: 
3?; REPEAT 4 TIMES. 

35', IF" All 4 REPEATS ARE GOOD, RECORD IS CONSIDERED AS RECOVERED AND 

3 *-4 j\ RECOVERABLE WRITE- ERROR IS LOGGED AT THAT RECORD NUMBER. 

535 IF ANT QF THE 4 REPEAT FAILS* EAASfc BAD RECORD, LQGG SUSPECTED 
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33b BAD SPOT AT THAT RECORD NUMBER, RETRY AGAIN 3 INCHES FURTHER DOWN TAPE. 

337 RETRY 4 TIMES, UP TO 4 REPEATS EACH. 

338 IF RECORD CANNOT BE WRITTEN WITHOUT RECOVERABLE ERROR AFTER 4 RETRIES, 
33M ERASE "IECORD, REPORT RE T RY FAILED ON BAD SPOT. 

340 THE RECOVERABLE ERROR SUBROUTINE THEN CONTINUES TO CALL THE WRITE 

341 RcTR^ SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETRIES, 

34C UNTIL T.- T.rrCORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGED . 
343 

344 TWENT1 (20) BAD SPOTS MAXIMUM ARE ALLOWED PER TAPE PASS. 

345 WHEN 20 BAO SPO'S HAVE BEEN LOGGED, ON SAME RECORD NUMBER OR NOT, 

346 TAPE IS CONSIDERED DEFECTIVE: A BAD TAPE OVERFLOW MESSAGE IS PRINTED 
34T AND UNIT IS REWOUND, THEN DROPPED. 

34 <> DURING THE RECOVERY PROCESS, IT IS NECESSARY TO PERFORM SEVERAL TAPE 

330 POSITION OPERATIONS: SPACE REVERSE, ERASE, IF A POSITION ERROR STAIUS 

35: IS DETECTED DURING THOSE OPERATIONS. THEN THE RECOVERY ATTEMPT IS ABORTE 

?V AN APPROPRIATE UNRECOVERABLE MESSAGE IS PRINTED AND UNIT IS DROPPED. 
3:53 

354 ALL BADLY WRITTEN RECORDS FLAGGED WITH RECOVERABLE ERRORS ARE ERASED 

355 UNTIL RECOVERED. INCLUDING THE RECORD AT THE 20TH BAD SPOT, 

356 SO THAT ALL RECORDS LEFT ON TAPE ARE GOOD WRITTEN RECORDS. 

357 BAD SPOTS ARE ERASED, WITH ERASE GAPS FROM 3 TO 12 INCHES PER RETRY GRO 

358 UP TO 20 FEET OF ERASE GAP COULD RESULT WHEN RETRYING TO RECOVER 

359 A SINGLE RECORD, IF NO BAD SPOT WERE PREVIOUSLY DETECTED. 

360 THAT LONG STRETCH OF BAD TAPE WOULD THEN BE FLAGGED WITH 20 

36 i dAD SPOTS AT SAME RECORD NUMBER AND THE TAPc CONSIDERED DEFECTIVE. 

363 EAD SPOTS REPORTS 
364 

365 IF THE PRINT OF RECOVERABLE ERRORS IS ENABLED, THE BAD SPOTS ON TAPE ARE 

366 IDENTIFIED AS THEY ARE DETECTED. SINCE THE BAD RECORDS ARE ERASED UNTIL 

367 THE BAD SPOTS ACTUALLY PRECEDES THE RECORD NUMBER THAT IDENTIFIES THEM. 

368 THE NUMBER OF REPEATS ANO RETRIES ATTEMPTED IS PRINTED, FROM WHICH THE 
>-S9 LENGTH OF ERASE GAPS CAN BE DETERMINED: APPROXIMATELY 3 INCHES PER RETR 
370 

3;i THE STATISTICAL REPORT PRINTED AT THE END OF TEST 2 OR UPON A "PRINT** RE 

3<V CONTAINS A SUMMARY OF THE HAD SPOTS LOGGED ON THE CURRENT TAPE PASS. 

373 IN THAT REPORT, ALL COUNTS ARE CUMULATIVE FROM PASS TO PASS, EXCEPT FOR 

3/4 THE NUMBER OF BAD SPOTS: IT RELATES TO A "TAPE PASS" ONLY. 

3'S FOR THIS PURPOSE, A "TAPE PASS" lb A WRITE PASS FROM BOT TO EOT, OR FROM 

3 ''6 BOT TO WHERE THE DIAGNOSTIC IS HALTED BEFORE REACHING EOT, 

37; A PASS IS DEFINED BY THE SUPERVISOR AS A RUN THROUGH ALL THE TESTS PEQUE 

3/K ON ALL UNITS SELECTED. THOSE PASSES ARE IDENTIFIED AS "PASS' AND "FOP". 

3 ! ( ) 

380 THE NUMBER OF WRITE RETRIES, CUMULATIVE FROM PASS TO PASS, IS A GLOBAL 

381 COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN CALLED. 

38;;' 

38' ;HE NUMBER c ■' WRITE RECOVERABLE ERRORS EXCLUDES BAD TAPE SPOTS 

384 AND RtM.ECTS THE SPECIFICATION', OF THE HARDWARE UNDER TEST. 

385 PER TAPE PASS, THE NUMBER OF WRITE RETRIES EQUALS THE SUM OF THE 
38" NUMBER OF RECOVERABLE WRITE ERRORS AND BAD SPOTS, MOST OF 1H{ I IMF. . 

3a; 

388 TO CI EAR CUMULATIVE COUNTS, ANSWER 'i' TO: CLEAR COUNTERS vt.) > :\ 

'••Vt HAD TAPE SPOTS COUNT IS Cl EARED WHEN WRITiK'G FROM tfOT. 

Ml IF TEST a IS HALTED, THEN RESTARTED Urt CUNQNUtO* THE RECORD CUCNI 
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397 

398 

399 

400 

401 

402 

40? 

404 

4 OS 

406 

40 7 

408 

409 

410 

4!1 

412 

415 

414 

415 

41b 

417 

418 

419 

4?G 

431 

4ci-? 

42? 

424 

425 

42b 

42 7 

428 

429 

430 

431 

4 52 

433 

4 54 

435 

436 

437 

438 

4 39 

440 

441 

442 

44? 

444 

445 

440 

44 7 
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SfcO 0012 



IS RESET TO ZERO AND THE BAD SPOT ID SHALL fOLLOW THAT RESET COUNT. 

SINCE ALL WRITTEN RECORDS ARE KNOWN GOOD, THE READ ERRORS CAN 

BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT ELECTRICAL MALFUNCTIONS, 

OR CONTAMINANTS ON TAPE AS OPPOSED TO TAPE DEFECTS. 

THE SAME RECORDS MUST BE WRITTEN FORM TAPE PASS TO TAPE PASS 
FOR THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 



EXAMPLE OF A TAPE PASS PRINTS: 

CZTSH SFT ERR 00009 ON UNIT 00 TST 002 

RECOVERABLE ERROR 

WRT CMD FAILED - UNIT PASS: 1 

PREVIOUS CMD WAS WRT 



SUB 000 PC: 012100 
RECORD: 6 



CMDPKT 

100205 

026600 

000000 

003107 

XSTO 

000350 



TSBP 
002406 



RFC 
000000 



TSSR 
100210 



TCC 

4 



XST1 XST2 XST3 
000002 100400 000000 
SUSPECT BAD SPOT AFTER 1 RETRY 
SUS D ECT BAD SPOT AFTER 2 RETRY 
SUSPECT BAD SPOT AFTER 3 RETRY 
SUSPECT BAD SPOT AFTER 4 RETRY 
RETRY FAILED ON BAD SPOT 
SUSPECT BAD SPOT AFTER 1 
SUSPECT BAD SPOT AFTER 2 



REPEAT 
REPEAT 
REP^PT 

REPEAT 



..ERASED! 
RETRY, 1 REPEAT 
RETRY, 1 REPEAT 



CZTSH SFT ERR 00009 ON 
RECOVERABLE ERROR 
WRT CMD Ft LED - UNIT 
PREVIOUS CMD WAS WRT 



UNIT 00 TST 0C2 SUB 000 PC: 012100 



PASS: 



RECORD: 10210 



CMDPKT 


TSBA 


NFC 


TSSR TCC 




100205 


002406 


000000 


100210 4 




026600 










OOOOOO 










004000 










XSTO 


XST1 


XST2 


XST3 




000350 


000002 


100010 


000000 




Ub COVERED ON RETRY it 1 






*C 










DR»PRI 










UNIT 


PASS: 


1 RECORD: 10210 




BiTES 1 


WRITTEN 


0.272 


279,601 




HUES 1 


3EAD REV 


0,301 


123,654 




BYTES 1 


^EAD REV 


0,301 


120,381 

WRT RDR 


RDF 


RECOVERABLE ERRORS 


1 G 





UNRECOVERABLE ERRORS 








WRITE 


RETRIES 




? 





a BAD SPOTS THIS TAPE PASS PRECEDING RECORD tf; 



Nl 





6 6 




SPF.C COND 


HARD FATAL 


COMPARE 


?. 








DR> 
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448 
44** 

450 

452 

45? THIS EXAMPLE SHOWS; 

454 RECORD 6 RECOVERED ON 2ND RETRY GROUP 

45!- THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS 5 

45o RECORD 10210 RECOVERED ON 1ST RETRY OF 4 GOOD REPEATS 

457 3 WRITE GROUP RETRIES ATTEMPTED, RESULTING IN: 

458 1 RECOVERABLE WRT ERR FROM RECORD 10210 

459 2 BAD SPOTS BETWEEN RECORDS 5 AND 6 
460 
4f>1 

46:? 

46 "* 1.1.4.3.2 OPERATIONAL WRITE -ERROR-RECOVERY ALGORITHM 

4b4 

465 WHuN THIS ALGORISM IS SELECTED, THE TS11 WRITE RETRY COMMAND 

466 IS ISSUED UP TO 16 TIMES 0?. UNTIL RECORD IS RECOVERFD, ON 

467 A WRITE RECOVERABLE ERROR. THE WRITE RETRY COMMAND CONSISTS 

468 OK P SPACE REVERSE OVER THE BAD RECORD. THEN AN ERASE OF 3 INCHES 

469 OF TAPE AND REWRITE OF JHE RECORD. THAT COMPOSITE COMMAND 

470 DOES NOT ALLOW TO DETECT BAD SPOTS ON TAPE. 
4/1 THEPEFORE NO BAD TAPE ETOTS STATUS IS PRINTED. 
4 7? 

473 IF RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRf COMMANDS, 

474 A RETRY LIMIT EXCEEDED IS FLAGGED AND UNIT IS DROPPED. 
475 
4 7o 

47- 1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT 

4/8 

479 A NUMBER OF SUPERVISOR TIMING DELAYS MACROS, KNOWN AS ..ATCH DOG 

480 DELAYS. ARE CALLED B> THE DIAGNOSTIC TO WAIT FOR VARIOUS COMMANDS 

481 COMPLETION. THESE DELAYS ARE NOT CALIBRATED AND SIMPLY EXPANDS 

482 INTO AN INLINE NESTED LOOP PAIR. THE COUNT FOR THE OUTER LOOP 
48* COMES FROM THE VARIABLF ARGUMENT SUPPLIED BY THE DELAY CALLS. 

484 THE COUNT r OR THE INNER LOOP COMES FORM THE FIXED "HEADER" 

485 ELEMENT *L$DLY". 

486 AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S, THESE DELAYS WILL 
467 VARY IN LENGTH WITH MEMORY SPEED. 
488 

489 if TIME-OUT OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE 

490 UNIT IS EVIDENT, ALL TIMINbS Of THE DIAGNOSTIC MAi BE ADJUSTED 

491 TO MATCH MEMORY SPEED (, .ND NOT RESULT IN TIME-OUTS, BY PATCHING 

492 THAT FIXED DEI AY ELEMENT "I ID1.1". 
493 

494 a PRESET CUUN1 ty SOO RESIDES AT "L*OL>' IN LOCATION .'1U> J* THE 

495 -HEADER" SECTION. 
496 

49" 

49H i,;.i MSTEM REQUIREMENTS 

499 

500 
5'J1 

l '<V 1,2.1 HARDWARE Kb UUlPLMfc M ', 
503 



svc, n P SOURCF. » III 
C2TSHL..M11 Ob* APR -84 

505 

50 : 

SK 
511 

515 



MAcm 

0di49 



30(1040 



06 APR ft4 
MtCNTOPi 



r j« 
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GPRM C0UN1 OPTION 



PDP-11 PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLF. DEVICE CI A30.LA36 , VT50, ETC , ) 
PROGRAM LOAD DEVICE 



SEQ 0014 



1,2,2 SOFTWARE REQUIREMENTS 



DIAGNOSTIC SUPERVISOR 



CP. 
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CZTSHD.PU U6-APR84 08:49 M*CNT0P; GPRM COUNT OPTION SEQ 0015 

514 1.3 RELATED DOCUMENTS ANO STANDARDS 

515 

516 

5i: XXDP* USERS MANUAL MD-11-CHQUS 

516 DIAGNOSTIC SUPERVISOR PROGRAM LISTING 

519 PDP-11 DIAGNOSTIC SUPERVISOR INTERFACE SPECIFICATION. 

520 PDP-11 DIAGNOSTIC SUPERVISOR PROGRAMMER'S GUIDE, 
Wl TS11/TS04 PROGRAMMING SPECIFICATION. 

5P2 TS11/TS04 ENGINEERING SPECIFICATION. 

5^3 TS11/TS04 COMMAND PACKET SPECIFICATION. 

524 

525 

S*> 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

52 "* 

5 "'S 

52<* ORDER OF HOST CPU DIAGNOSTIC USAGE: 

550 

531 1) CONTROL LOGIC PROGRAM ALL TESTS. 

532 

533 2) DATA RELIABILITY PROGRAM: 

534 

535 A) BASIC FUNCTION TEST. 

536 B) DATA RELIABILITY TEST. 
53. ' 

53a 

539 x^ ASSUMPTIONS 

540 . - ,. 

541 

54 t - THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 

54 3 PROPERLY FALSE ERRORS MAr BE REPORTED IF THE PROCESSOR, MEMORY, ETC., 

544 DO NOT FUNCTION PROPERLY, 

545 

546 



D 



S\.C.MIB SOURCE ► ILL MACU1 3011046) 
CZTSHO.PU Ob APR 84 Oti}49 

54: 

548 

5^0 
551 
552 

554 

55b 

55'.' 
556 
55* 
560 
5b 1 

5lO 

5^3 
564 
5^5 
56b 
56 7 
568 
569 
570 
571 
b72 
573 
574 
5/5 
576 
577 
578 
579 
580 
581 
58? 

58 5 
584 
585 
586 
58/ 
588 
589 
590 
591 
59^ 
59*. 
594 
595 
596 

59 7 
598 
c /.r* 
MjO 

#-o: 



06 APR 84 

mJcntop? 



08 ; 51 PA 



gprm' COUNT 



option 



SEQ 0016 



i.6 DIAGNOSTIC HISTORY 



REVISION A - OCT 1978 

- ORIGINAL RELEASE 



REVISION B 



REVISION 8 



- FEB 1979 

- CCRRECTEO END OF TAPE PROBLEMS IN TESTS 3-5. 

- CHANGE* DEFAULT VECTOR ADDRESS FROM 150 TO 224. 

- DECREASED MAXIMUM RECORD LENGTH FROM 4096 TO 2048 BYTES. 

- AUG 1979 

-DO NOT PRINT RECOVERABLE ERRORS UNLESS REQUESTED Br OPERATOR 
-WARN OPERA T OR OF UNIT(S) BEING NOT READY OR OFF-LINE. 
DROP UNIT(5) LEFT NOT READY OR OFF-LINE FOR 3.5 MINUTES. 
-IMPROVE BEHAVIOR AT EOT 
-IN TEST 2, FREEZE UNITS REACHING EOT UNTIL OTHERS 

CATCH- UP INSTEAD OF ALLOWING THEM TO SHUTTLE AT EOT 
-WHEN ALL UNITS REACH EOT, WRITE ONE RECORD BEYOND EOT. 
READ REV THAT EXTRA RECORD TO POSITION TAPE 
SO THAT i HE NEXT COMMAND REQUESTED CAN BE EXECUTED. 
THAT EXTRA RECORO SHALL LEAVE A Ct.EAN IRG GAP AND A VALID 
RECORD TO READ WHEN SHORTER REAO STOP DISTANCE MIGHT CAUSE 
UNIT TO FLAG EOT ON THAT EXTRA RECORO INSTEAD OF THE 
PREVIOUS ONE. THIS SHOULD ELIMINATE MANY READ ERRORS AT 
EOT AND TAPES RLNNING OFF THE WHEELS. 
-WRITE RECORD COUNT ON TAPE. 
PRINT RECORD COUNT READ FROM TAPE IN READ ERROR PRINTS IU 
INDICATE IF POSITION WAS LOST. 

♦ CAUTION * 

INTERPRET THAT "RECORD READ" COUNT WITH CAUTION. 

IF VERY DIFFERENT FROM RECORD COLNT TRACKED BY THE DIAGNOST 



POSITION IS NOT 



LOST. ERRORS IN READING THAT 
CAU5ED RECORD COLMT TO BE ERRONEOUSL f 



RECORD ^IGHT HAVE 

READ FROM TAPE. 

IN TEST 2, IF DIAGNOSTIC IS RESTARTED OP CONTINUED. RECORD 

IS RESET iO ZERO ALTHOUGH TAPE UAS NOT REWOLNO. THIS IS 

NECESSARl BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 

ON WHAT RECORD COUNT OF WHAT ^JNIT THE DIAGNOSTIC WAS HALTED 

BEFORE RESTARTING OR CONTINUING. 

IT IS SUGGESTED THAT A "PkINT" BE REQUESTED WHEN HALTING DI 

TO GET A PRINT OF THu RECORD COUNT WHEN HALTED. 



VERIFY RECORD OF 4000 BYTES INSTEAD OF 22 BiTES 



WHEN COMPARING DATA. 
OR RECORD WAS LONGER 
FREEZE TSSR REG WHEN 
BETWEEN TSSR AND TCC 
WHEN DROPPING A UNIT 
THE RESULT OF A GET 



READ 



CHECK AND PRINT IF NO DATA W 

THAN EXPECTED. 

A COMMANO IS COMPLETED TO AVOID DIFFtRE 

FETCHED AT DIFFERENT TIMES. 
, FLAG SECOND PRINT OF EXTENDED STAR* 
STATUS COMMANO. 



WAIT FOR SSR UP BEFORE PRINTING THAT STATUS. 

ADJUST "PASS" COLNT OF DIAG TO MATCH "EOP" PASS COL«NT OF $gP 

INCREASE NUMBLR OF SELECTABLE COMMANDS IN TtST t? FROM 

4 10 .'. DfrFAur COMMAND 6 IS NOW REWIND. 

■CONVERT DIAG TO REV C OF SUPERVISOR* 



SVC. Ml. U SOURCE > ILL MAO U 3QU046) 06 APR-64 

C/TSH0.H1 06-APR-tJ4 08*49 MJCNTOPj 

t^04 

t»0S 

t>06 

bo: 

t>0* 
HO 4 * 

<sn 
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GPRM COUNT OPTION 



SEQ 0017 



ADD SEVERAL SECTIONS: 
PROTECT TAOLE 
AUTO-DROP CODh 
HARD CODED PARAMETER TABLE 
OCT 79 

- ADD MEDIA/OPERATIONAL SELECTIVE WRITE -^RROR -RECOVER < ALGORI 
TO DETECT BAD SPOTS ON TAPE, 

REVISION D - MARCH 84 

- FIX ERROR ROUTINES SO THAT DATA COMPARE ERRORS IN TEST g 
• DO NOT CAUSE OTHER PROBLEMS. 



REVISION C 



SVC.MIR SOURCE l U.l MACU1 30UG4b) Ob APR. 84 

CZTSHD.Pli 06 APR -64 08{49 M$CNTOP; 
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SEQ 0018 



613 
614 
615 
616 

6i: 

618 
61* 

621 

622 

60? 

t>24 

625 

626 
62-' 

628 

t>2S» 

630 
b?l 
632 
633 

t>34 
*35 
636 
63? 
638 
639 
640 
641 
64a 
64 3 
644 
645 
b46 

m ? 

648 
649 
650 
651 



2.0 OPERATING INSTRUCTIONS 



FOR OPERATING INSTRUCTIONS, PLEASE SEE CHAPTER 5 OF XXDP* OPERATORS 

MANUAL , 



cM HARDWARE PARAMETERS 



ON A "N" RESPONSE TO "CHANGE HW?'\ THE DIAG SHALL RUN ASSUMING 
ONE UNIT AT TSSR - 172522 WITH A VECTOR « 224. 

ON A "Y" RESPONSE TO "CHANGE HW?" QUESTION, THEN 
THE FOLLOWING QUESTIONS UILL BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 

TSSR ADDRESS C 172522) ? 

VECTOR (224) ? 

THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING THE TES T S 
BY SETTING THE FLJG "ADR" ON A STA, RES OR CON COMMAND. 
THE SO CALLED AUTO DROP CODE SHALL THEN BE EXECUTED AFTER THE INIT CODE 
AND BEFORE THE HARDWARE TESTS ARE RUN. THAT CODE FIRST TESTS THE ADRRES 



OF THE TSSR(S). If NO RESPONSE, 
WITH THE FOLLOWING MESSAGE: 
BUS TRAP AT XXXXXX 
INTERFACE BAD OR NOT SET 
ON A RESPONSE FROM THE INTERFACE 
ON-LINE ARE DROPPED IMMEDIATELY. 
BE RUN ON RESPONDING UNITS. 



IT DROPS THE 'JNIT(S) IMMEDIATELY 



C XXXXXX - TSSR AD ) 
TO ABOVE AD. 
THE UNITS THAT ARE 
THE HARDWARE TESTS 



NOT READ1 OR 
SHALL THEN 



NOT 



IF THE "ADR" FLAG IS NOT SET, THE READY AND OFFLINE STATUS OF THE 
UNITS ARE CHECKED. A MESSAGE SHALL. BE PRINTED EVERY SC OFTEN 
T WARN THF OPERATOR OF UNITS BE ING NOT READY OR OFF LINE. TnESE UNITS 
SHALL BE QROPPED AFTER A REASONABLE AMOUNT OF TIME (3 MIN ON A ii/70>. 



SVC. MLB source file 

CZTSHC.P11 06-APR 

652 

653 
654 
655 

b56 
65? 
t-58 

*>$* 

660 
661 
t»62 

o63 
664 
665 
666 

66 T 
6t>8 
669 
670 
6^1 
67? 
673 
674 
675 
676 

67 7 
678 
679 
680 
681 
662 
683 
684 
685 
686 

68 7 
688 
689 
690 
691 
69? 
693 
694 
695 
696 

69 7 
698 
699 
700 
701 

702 

703 
704 
705 
706 
707 



84 



MACUL 
Ob; 49 



30(1046) 



06 APR ^84 
M$CNTOP; 
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GPRM COUNT OPTION 



SEQ 0019 



2,2 SOFTWARE: PARAMETERS 



THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A SIART, RESTART, 
OR CONTINUE. THEY ALLOW FLEXABTLin IN THE WAY THE PROGRAM BEHAVES. 

CLEAR COUNTERS CD Y ? 

RESET RANDOM VARIABLES CD N ? 

PRINT RECOVERABLE ERRORS (L) N ? 

HALT AFTER EACH CMO CD N ? 

INHIBIT RECOVERY CD N ? 

BAD TAPE SPOT DETECTION CD Y ? 

DISABLE INTERRUPTS CD N ? 

INHIBIT RFC ERROR REPORTS (L ) N ? 

CHANGE CMO SEQUENCE CD N ? 



NOTE: 



THIS QUESTION SHOULD BE ANSWERED CN) UNLESS AN 
OPERATOR SELECTED SEQUENCE IS TO BE EXECUTED. 
IF THIS QUESTION WAS ANSWERED CN), NO MORE 
QUf. ST IONS WILL BE ASKED. IF THIS QUESTION WAS 



ANSWERED Y, THE FOLLOWING QUESTIONS MUST 
ANSWERED OR DEFAULTED WITH A <CR> ONLY; 



BE 



CHARACTERISTICS CODt 


CO) 40 ? 


CO, 20, 40, 200) COCTAL 


CMO/? CD) 13 ? 




CI 27) 


CDECIMAD 


BRF COUNT CD) 1 ? 




C1-2K) 


C DECIMAL) 


OF OPERATIONS CD) 


1 ? 


C 1 - 32K ) 


CDECIMAD 


PATTERN CD) 7 ? 




COS) 


COECIMAL) 


CMD/3 CD) 4 ? 




CI -27) 


CDECIMAD 


BRF COUNT CD) 2046 ~i 




(1 -2K) 


CDECIMAD 


OF OPERATIONS CD) 


32000 ? 


C1-32K) 


COECIMAL) 


PATTERN CD) I ? 




CO-8) 


CDECIMAD 


CMD/4 CD) 5 ? 




Cl-27) 


CDECIMAD 


BRF COUNT CD) 2048 ; 


► 


C1-2K) 


(DECIMAL) 


o OF OPERATIONS CD) 


32000 ? 


C1-32K) 


(DECIMAL) 


PATTERN CD) 7 ? 




CO-8) 


CDECIMAD 


CMD/5 CO) 2 ? 




11-.'?) 


CDECIMAD 


BRF COUNT CD) 2048 ; 


> 


C! ~2K) 


CDECIMAD 


OF OPERATIONS CD) 


32000 ? 


CI 32K) 


CDECIMAD 


PATTERN CD) 7 ? 




(0 8) 


(DECIMAL) 


CMD/6 CO) 13. ? 




( 1 -27) 


C DECIMAL ) 


BRF COUNT CD) 1 ? 




CI 2K) 


CDECIMAD 


OF OPERATIONS CD) 


1 ? 


CI -32K) 


(DECIMAL ) 


PATTERN CD) / ? 




CO-8) 


CDECIMAl > 


CMD/7 CO) 27, ? 




I 1-27) 


(DECIMAL) 


BRF COUNT (D) 2049 


} 


t 1 -2K) 


CDECIMAL ) 


^ OF OPERATIONS CD) 


32000 ? 


( 1 32K) 


CDECIMAl ) 


PATTERN CD) 7 ? 




CQ-iJ) 


(DECIMAL) 



SVC, MIR SOURCl Hll MACUl 30U046) 06 APR 84 
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708 

709 

:io 

'li 

71.> 

713 
714 
7 IS 
71b 

7i ; 

718 
VI* 
720 
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SEQ 0020 



CMD/8 CD) 27. ? 

BRF COUNT CO) 2048 ? 

* OK OPERATIONS CD) 32000 ? 

PATTERN CD) 7 ? 



CI -27) 
C1-2K) 
(1-32K) 
CO-8) 



CDECIMAL) 
COECIMAL) 
CDECIMAL) 
CDECIMAL) 



NOTE; THE PROGRAM AUTOMATICALLY INSERTS AN CHARACTERISTIC 40 
AS THE FIRST COMMAND IN THE SEQUENCE TABLE. IF A 
DIFFERENT CHARACTERISTIC IS DESIRED, THE OPERATOR SHOULD 
ENTER THAT CHARACTERISTIC CODE. A TOTAL OF 7 COMMANDS 
MAY BE ENTERED IN ADDITION TO THE SET CHARACTERISTICS 
COMMAND. IF THE OPERATOR WISHES TO USE LESS THAN 7 
COMMANDS, AN END COMMAND MUST BE ENTERED AND THEN A 
CONTROL I (tZ) CAN BE ENTERED TO TERMINATE SOFTWARE DIAL 



■^ 



-I- I 
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SEQ 0021 



721 

-* ^ ■» 

7,73 
724 
72^ 
726 

72" 
728 
729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

74 3 

744 

745 

746 

74/ 

748 

749 

750 

751 

752 

753 

754 

7SS 

756 

75? 

758 

759 

760 

761 

762 

763 

764 

765 

766 

76 7 

768 

769 

7/0 

771 

772 

77? 

7 74 

7 ;s 

7 76 



2.2.1 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 



CODE COMMAND 



1 
2 
3 
4 
5 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



24 • 

25 - 

26 « 

27 * 



DRI 
RDF 
ROR 

WRT 
WTV 

SRF 
SRR 
RNR 
RNF 
RPF 
RPR 
WRR 
RWD 
H8R 
WTM 
WTR 
SFF 
SFR 
GES 
ERS 
UNL 
CLN 
SCH 



DIA 
JMP 

01 Y 

END 



N RECORDS; READ REVERSE AND CHEC 
FORWARD AND CHECK N RECORDS. 



SPACE FWD, READ 
READ FWD, SPACE 
SPACE REV, READ 
READ REV, SPACE 



REV. 
REV. 
FWD. 
FWD. 



DESCRIPTION 

DRIVE INITIATE. 

READ FORWARD, 

READ REVERSE. 

WRITE. 

WRITE/VERIFY, IE. WRITE 

N RECORDS OF DATA; READ 

SPACE RECORDS FORWARD. 

SPACE RECORDS REVERSE. 

READ NEXT REVERSE, IE. 

READ NEXT FORWARD, IE. 

READ PREVIOUS FWD, IE. 

READ PREVIOUS REV, iE. 

WRITE RETRY. 

REWIND. 

MESSAGE BUFFER RELEASE. 

WRITE TAPE MARK. 

WRITE TAPE MARK RETRY, 

SPACE FILES FORWARD. 

SPACE FILES REVERSE. 

GET EXTENDED STATUS. 

ERASE 3 INCHES OF TAPE. 

UNLOAD. 

CLEAN TAPE 

SET DEVICE CHARACTERISTIC. WHE^E 

- ENABLE SKIP TAPE MARKS STOP 
ENABLE ATTENTION INTERRUPTS. 
ENABLE MESSAGE Bl^FER RELEASE INTERRUPTS. 

TS11/TS04 PROGRAMMING SPECIFICATION FOR DESCRIPTION 
DIAGNOSTICS. SEE TS11/TS04 PROGRAMMING SPECIFICATION 
FOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAGNOSTIC 
INTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED. 
JUMP TO THE NTH COMMAND IN THE COMMAND SEQUENCE 
TABLE, WHERE N IS DEFINED IN THE BRF FIELD. 
THE NUMBER OF JUMPS IS ENTERED IN THE OF OPERATIONS 
DELAY "N" MILISECONDS WHERE N IS DEFINED IN 
THE * OF OPERATIONS. 
END OF COMMAND SEQUENCE. 



200 
40 
20 
SEE 



BRF-200, 
CSTOP AT 



40, 20. 
LOGICAL 



0. 
EOT) 



DA 



FI 



2.2.2 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE. 



PATTERN *> 


1 
2 
3 
4 
5 
6 
t 

8 



DESCRIPTION. 

INCREMENTING PATTERN. 

ALL "1"' S PATTERN. 
ALL "0"* S PATTERN. 
"1" BIT WALKING FROM R 10 
"0" BIT WALKING FROM R TO 
ALTERNATING "1" AND "0" 
ALTERNATING Bi TES OF 000 
RANDOM DATA PATTERN. 
NO PATTERN GENERA II ON * 



377 



I 



IN 

L IF 
BITS WITH 
AND 377, 



FIELD 
* IELD 



0> 
0> 







ALTERNATE U^ TES COMPL 



Jr 
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rr; 2,3 examples of software dialogue 

778 • 

7» 

780 2.3a BA5IC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 

78^ A) RECEIVE PROMPT CDR>) 

78? B) ENTER STA/TES: 1 ~2<CR> 

784 C) ANSWER HARDWARE QUESTIONS. 

785 D) PROCEED WITH THE FOLLOWING DIALOGUES 

"i of. 

787 CHANGE SW CD ? Y<CR> 

788 CLEAR COUNTERS (L) N ? Y<CR> 
78> RESET RANDOM VARIABLES CD N ? N<CR> 
7**0 PRINT RECOVERABLE ERRORS (D N ? f<CR> 
.'91 HAL! AFTER EACH CMC (D N ? N<CR- 
7<V INHIBIT RECOVERY CD N ? N<CR> 
79? CAD TAPE SPOT DETECTION CD Y ? y<CR> 

794 DISABLE INTERRUPTS (D N ? N<CR> 

795 INHIBIT RFC ERROR REPORT CD N ? N<CR^ 

796 CHANGE CMD SEQUENCE CD N ? N<CR> 



<;2 
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SEQ 0027, 



7^7 

798 

?Q9 
600 
801 

805 
804 
805 
806 
607 
808 
80? 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
8J0 
821 
82? 
823 
824 
825 
826 
82/ 
828 
829 
830 
831 
832 
833 
834 
835 
8?b 
63 7 
838 
839 
£40 
841 
842 
84 3 



2.3.2 TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS, 

A) RECEIVE PROMPT (DR>) 

B) ENTER STA/TES:1/FLA:L0E:IER:ISR:IDU<CR> 

C) ANSWER HARDWARE QUESTIONS. 

D) PROCEED WITH THE FOLLOWING DIALOGUE: 

CH/.NGE SW (L) ? Y<CR> 

CLEAR COUNTERS CD N ? Y<CR> 

RESET RANDOM VARIABLES CD N ? N<CR> 

PRINT RECOVERABLE ERRORS CD N ? N<CR> 

HALT AFTER EACH CMD CD N ? N<CR> 

INHIBIT RECOVERY CD N ? N<CR> 

BAu TAPE SPOT DETECTION CD Y ? N<CR> 

DISABLE INTERRUPTS CD N ? N<CR> 

INHIBIT RFC ERROR REPORT CD N ? Y<CR> 

CHANGE CMD SEQUENCE CD N ? N<CR> 

2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 

A) RECEIVE PROMPT CDR>) 

B) ENTER S1A/TES:5/KLA:IER:ISR:IDU/E0P;1000<CR> 

C) ANSWER HARDWARE QUESTIONS. 

D) PROCEED WITH THE FOLLOWING DIALOGUE: 



CHANGE ->W CD ? 

CLEAR COUNTERS CD N ? 

RESET RANDOM VARIABLES CD N ? 

PRINT RECOVERABLE ERRORS CD N 

HALT AFTER EACH CMD (D N ? 

INHIBIT RECOVERY CD N ? 

BAD TAPP. SPOT DETECTION CD > ? 

DISABLE INTERRUPTS CD N ? 

INHIBIT RFC ERROR REPORT CD N ? 

CHANGE CMD SEQUENCE CD N ? 

CHARACTERISTICS CODE CO) 40 ? 

CMO/2 CD) 5 ? 

BRF COUNT CD) 2048 ? 

i) OF OPERATIONS CD) 10 ? 

PATTERN CD) 7 ? 

CMD/3 CD) 5 ? 

MRF CD) 2048 ? 

4 OF OPERATIONS CO) 10 ? 

PATTERN CO) 7 ? 

CMD/4 (Q) 5 ? 

BRF CD) 204ti ? 



Y<CR> 
Y<CR^ 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
Y<CR> 
Y<CR> 
Y<CR> 
40<CR> 
13<CR-> 
1<CR> 
1<CR^ 
1<CR> 
4<CR> 
1000<CR> 
10000 <C.T> 
1<CR> 
2?*CR> 
< t£> 



C REWIND) C COULD 



C WRITE) (COULD B 



CE.ND) CCQULP 6 



- I - 

SVC. MLB SOURCE FILL MACU1 3QQ046) 06-APR-84 08;5l PAGE 26 

C2TSHD.P11 06 -APR 84 08;49 M$CNTOPj GPRM COUNT OPTION SEQ 0024 

844 2,4 EXECUTION TIMES 

845 

846 

84 7 

848 0.4,1 Si'STEM CONFIGURATION 

849 

851 PDP11/34 

852 MOS MEMORY 
85* LA36 

854 TS11/TS04 

855 

856 

85.' 2,4,2 TEST EXECUTION TIMES 

858 

85^ 

860 TEST 1 - BASIC FUNCTIONS - 30 SECONDS PER PASS. 

861 TEST 2 - DATA RELIABILITY - 45 MINUTES PER PASS. 
86? TEST 3 - WRITE COMPATABILITY - 20 MINUTES PER PASS. 
86? TEST 4 - READ COMPATABILITY - 20 MINUTES PER PASS. 

864 TEST 5 - OPERATOR SELECTED SEQUENCE - DEPENDS ON SEQUENCE SELECTED. 

865 

866 NOTE? ALL EXECUTION TIMES ARE SHOWN FOP QNl' UNIT OEPRATICN. 

86/ APPROXIMATELY 10* WILL BE ADDED TO ALL EXECUTION TIMES 

368 FOR fcACH ADDITIONAL UNIT, 



M 



'^ 
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SEQ 0025 



869 
870 
8/1 
8 72 

8/5 
8?4 
8 75 
8 7b 

8 7 / 

878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
89 7 
898 
899 
900 
901 
90? 
903 
904 

90 ;. 

906 
907 
906 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 

921 

9~?2 
97.' 3 
924 



3.0 ERROR INFORMATION 



3.1 ERROR REPORTINC 



ALL ERROR REPORTS EXCEPT FOR ERRORS <n AND 017 INCLUDE A DUMP 
OF THE FOLLOWING INFORMATION: 

ERROR #, TEST 0, SUBTEST <> , PROGRAM COUNTER, UNIT <> t 

COMMAND, PREVIOUS COMMAND, PASS COUNT, OF 

RECORDS FROM BOT, RECORD READ COUNT, THE COMMAND PACKET, TSSR. 

TCC, TSBA, RFC, AND THE EXTENDED STATUS REGISTERS 

(SEE 2.3.14,1 FOR LIST OF COMMANDS). 

STANDARD ERROR REPORT FORMAT; 



CZTSH SFT ERR XXXXX TST XXX SUB XXX PC: XXXXXX 

(ASCII ERROR MESSAGE) 

XXX CMD FAILED • UNIT X PASS: 

PREVIOUS CMD UAS XXX 



CMDPKT 

XXXXXX 

XXXXXX 

XXXXXX 

XXXXXX 

XSTJ 

XXXXX* 



TSBA 
XXXXXX 



XST1 
XXXXXX 



RFC 
XXXXXX 



XST? 
XXXXXX 



TSSR 
XXXXXX 



XST3 
XXXXXX 



XXXXX RECORD: 
* RECORD READ: 
TCC 
X 



xxxx 
xxxxx 



* CAUTION ♦ 

INTERPRET THAT "RECORD READ" COUNT WITH CAUTION. 

IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOST 

POSITION IS NOT NECESSARELY LOST. ERRORS IN READING THAT 

RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 

READ FROM TAPE. 

IN TEST 2, IF DIAGNOSTIC IS RESTARTED OR CONTINUED. RECORD 

IS RESET TO ZERO ALTHOUGH TAPE WAS NOT REUOUND. THIS IS 

NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 

ON WHAT RECORD COUNT OF WHAT UNIT THE DIAGNOSTIC WAS HALTED 

BEFORE RESTARTING OR CONTINUING. 

IT IS SUGGESTED THAT A "PRINT" BE REQUESTED WHEN HALTING DI 

TO GET A PRINT OF THE. RECORD COUNT WHEN HALTED. 

EXAMPLE OF AN ERROR REPORT: 

CZTSH SFT ERR 00009 1ST 002 SUB 000 PC: 01060b 

RECOVERABLE ERROR 

WRT CMD FAILED - UNI T 2 PASS: 

PREVIOUS CMD WAS WRT 

CMDPKT TSBA RFC TSSR TCC 

100005 002324 000000 100210 4 

051/66 

000000 



2 RECORD: 2*>4 



000371 








XSTO 


XST1 


XST2 


XST3 


000350 


000002 


100004 


000000 
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9 t '5 
9,^6 

9<: : 

9? 8 
9£9 

930 3.1.1 ERROR <H - COMMAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRY : 

931 

93 t ? IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY. 

933 THIS IS A SYSTEM FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 

934 CORRECT IT, 

93r. 

936 

93"^ 3.1,2 ERROR #2 - TSO* NOT READY: 

938 

939 BEFORE ANY COMMAND TS ISSUED TO THE TS04, THE bUBSYSTEM READY 

940 BIT IN THE TSS4 IS CHECKED. IF THE SSR IS NOT SET, THE PROGRAM 

941 REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
943 THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 
943 OPTION IS USED. 
944 
'-'.* : _i 

946 3,1,3 ERROR $3 NO RESPONSE ERROR: 

94 7 

948 ONCE THE TSDB IS LOADED, THE TS04 HAS ONE MILLISECOND TO RESPOND 

949 OR THE PROGRAM REI ORIS A NO RESPONSE ERROR. THIS IS A FATAL 

950 DEVICE ERROR AND THE DEVICE WILL Bl. DROPPED FROM THE TEST SEQUENCE 

951 UNLESS THE IDU OPTION IS USED. 
952 
953 

954 3.1,4 ERROR #4 - NO INTERRUPT ERROR: 

955 

956 COMMAND WAS ISSUED AND NO INTERRUPT RECEIVED. THE PROGRAM REPORTS 

957 THAT NO INTERRUPT OCCURRED. THIS IS A f-ATAL DEVICE ERROR AND 

958 THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
95<* OPTION IS USED. 
960 
961 

9o2 3.1.5 SPECIAL CONDITION ERRORS: 

963 

961 IK, DURING EXECUTION, AN INCIDENT OCCURS FORCING THF TSSR 

9o5 SPECIAL CONDITION BIT W SET, THE PROGRAM WILL SELECT ONE OF 

966 8 ERROR HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS 

96 7 CODE. 

968 

969 THE TERMINA.ION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 

9/C WHEN SPECIAL CONDITION IS oET* 

9/1 
<)/;■ 

9 7.*. 3.1.5.1 ERROR ,'>5 - TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDITION 

9/4 

9/' THE ERROR IS REPORTED, A HARD ERROR IS LOGGED 

976 AND THE PROGRAM PROCEEDS NORMALLY. 

9 7 7 

4/8 

9/9 3,1.5.2 ERROR 4fe - TERMINATION CLASS CODE 1, ATTENTION CONDITION 

980 



v , 



SVC* MLB SOURCE F ILL MACU1 30(1046) 

CZTSHD.PU 06 -APR -84 08:49 

982 

98 5 

984 

985 

98* 

98" 

^88 

98^ 

99o 

991 

99,? 

995 

994 

995 

9^6 

9c>7 

9^8 

999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
100^ 
1008 
1009 
1010 

ion 

1012 
1013 
1014 
1015 
1016 
101? 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
102 7 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
10 35 
1056 



06 -APR -84 
M$CNTOPt 



08j5l PAGE 29 

GPRM COUNT OPTION SEQ 0027 

THIS TCC INDICATES THAT THE DRIVE WAS UNDERGONE A STATUS CHANGE 

SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 

ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
THE ID»J OPTION IS USED, 



3.1.5.3 ERROR C7 - TERMINATION CLASS CODE 2, TAPE STATUS ALERT 

A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 

TO THE PROGRAM. BITS OF INTEREST INCLUOE TMK , RLS, LET, RLL , EOT. 

ACTION TAKEN DEPENDS ON THE TEST BEING EXECUTED. 

IF THE CONOITION IS UNEXPECTED, THE ERROR IS REPORTED AND 

A HARD ERROR IS LOGGED. THE PROGRAM PROCEEDS NORMALLY, 

5.1.5.4 ERROR 08 - TERMINATION CLASS CODE 3, FUNCTION REJECT 

THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 
RMR, OFL, VCK, BOT , ILC. WLE ♦ ILA, ANO NBA. THIS IS A FATAL 
DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE 
UNLESS THE IDU OPTION IS USED. 

31.5.5 ERROR 09 TERMINATION CLASS CODE 4, RECOVERABLE ERROR 

TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
THE FJNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND ISSUE THE APPROPRIATE RETRY COMMANO. IF RETRY LIMIT 
IS REACHED BEFORE THE ERROR IS RECOVEREO, RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR 014 BELOW, 

3.1.5.6 ERROR 010 - TERMINATION CLASS CODE 5, RECOVERABLE ERROR 

TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 

ERROR ANO RE -ISSUE THE ORIGINAL COMMAND. IF RETRY LIMIT IS 

REACMFD BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR 014 BELOW. 

3.1.5.7 ERROR Oil - TERMINATION CLASS COOE 6. UNRECOVERABLE ERROR 

TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE IS TO 
REWIND ANO START OVER AT BOT UNLESS THE TAPE HAS LABELS OR SEQUENCE- 
NUMBERS. If DENSITY CHECK IS SET THIS DIAGNOSTIC WILL REWIND AND 
RETRY THE COMMAND. OTHERWISE THIS IS A FATAL OEVICE ERROR AND THE 
DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE. IOU OPTION IS USEU 

3.1tS»e ERROR 01? - TERMINATION CLASS CODE 7. FATAL SUBSYSTEM ERROR 

THE SUBSYSTEM IS INCAPABLE OF PROPERL' PERFORMING COMMANDS OR AT 
LEAST ITS INTEGRITY IS SERI0USL1 QUESTIONABLE. REFER TO THE 
FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR ADDITIONAL INf OK - 
MATIQN ON THE TyPE QF FATAL, ERROR. THt DEVICE WILL UE QROP&ED 
PROM THE TEST CTCLL UNLESS THE IDU UPUON IS USED. 



c 



3 
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SEQ 0028 



1058 
10?^ 

.1040 
1041 

104,? 
104? 
1044 
1045 
1046 
104^ 
1048 
1049 
1050 
1051 
105J 
1053 
1054 

1055 
105b 

1C57 

1058 
1059 

1060 
1061 
1062 
106? 
1064 
1065 
1066 
106? 
1068 
1069 
1070 
1071 
1072 
1075 
1074 
10 75 
10 76 
1077 
1073 
1079 
1080 
1081 
) 08c? 
i03? 
1084 
1085 
1086 
1087 



3.1.6 ERROR 413 - RFC NON-ZERO ERROR? 

IF, AFTER EXECUTION, THE RESIDUAL FRAME COUNT IS NON-ZERO, THE 
ERROR IS REPORTED AND A HARD ERROR IS LOGGED, THE PROGRAM THEN 
PROCEEDS NORMALLY. THE REPORTING AND LOGGING OF THESE ERRORS 
IS OPTIONAL. 

3.1.7 ERROR 014 - RETRY LIMIT EXCEEDED: 

ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND TMf DEVICE 
WILL DE DROPPED FROM THE TEST CyCLF UNLESS THE IDU OPTION IS USED. 

ON A READ COMMANO THIS ERROR IS LOGGED AS A HARD ERROR AND 
THE PROGRAM PROCEEDS NORMALLY. 

3.1.8 ERROR 015 - T 00 MANY INTERRUPTS: 

IF MORE THAN ONE INTERRUPT OCCL«S PER COMMAND, THIS ERROR IS REPORTED 
THIS IS A FATAL DEVICE ERROR ANO THE DEVIC- WILL BE DROPPED FROM 
THE TEST CKLE UNLESS THE IDU OPTION IS USED. 



3.1,9 ERROR 016 - CAPSTAN RUNAWAY j 

CAPSTAN DID NOT STOP WITHIN ACCEPTABLE 

COMMANO. THE PROGRAM WILL ISSUE A GE T 

THE ERROR SO THAT THE DEAD TRACK FIELD 

WILL CONTAIN THE TACH COWT WHEN THE TAPE STOPPED. 

THIS IS A FATAL DEVICE ERROR ANO THE DEVICE WILL BE DROPPED FROM 

THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 



WI*»DOW AFTER LAST 

STATUS COMMANO BEFORE REPORTING 

IN EXTENDED STATUS REGISTER 2 



3.1.10 ERROR 017 • DATA COMPARE ERROR; 

IF A DATA VALIDATION ERROR OCCURS DUPING A WRI TE 'VERIF t COMMAND, 
THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN ANO WHAT THE 
DATA WAS, ANO PRINTS THE BYTE ANO RECORD NUMBER THE ERROR OCCURRED 
ON. ONE* THE FIRST 10 BYTES IN ERROR PER RECORD ARE PRINTED. 
THE TOTAL OF HtTES IN ERROR PER RECORD IS ALSO PRINTED. A 
HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY, 



3*2 ERROR HALTS 



t-RRUR HALTS ARE 
WITH /FLAG \ HOE* 



SUPPORTED PER DESCRIBED IN 
THERE ARE NO OTHER HALTS, 



THE PREVIOUS SECTION 



D3 



SVC, Ml B SOURCE > lit. 
CZTSHD.Pil 06-APR-84 

1088 
108^ 
1<W 
1091 

1092 

109? 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
110.? 
A 103 
1104 
1105 
.10t 
1107 
1108 
1109 
1110 
1 111 
1112 
1113 
1114 
1115 
U lo 

in; 

1118 

1119 

1120 
1121 

1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1163 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
114? 
1143 



macui 

08:49 



30(1046) 



06 APR -84 

M$CNT0P; 



Oil : 5 



GPRm' COUNT 



OPTION 



SEQ 0029 



4.0 PERFORMANCE REPORT 



UNIT X PASS-.XXXXX RECORDjXXXXX 
BYTES URITTEN XXX, XXX , XXX , X/X 
BYTES READ REV XXX, XXX, XXX, XXX 
BYTES READ FWD XXX , XXX, XXX, XXX 

WRT RDR 
RECOVERABLE ERRORS XXXXX XXXXX 
UNRECOVERABLE ERRORS XXXXX XXXXX 



RDF 
XXXXX 
XXXXX 



SPEC CONO 
XXXXX 



HARD 
XXXXX 



FATAL 
XXXXX 



COMPARE 
XXXXX 



5.0 TEST SUMMARIES 



5,1 



TEST 1 - 



BASIC FUNCTIONS. 

EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TS04 FUN 



SUBTEST 1 



SUBTEST 2 



SUBTEST 3 



SET CHAR, DRIVE INI*. GET STATUS, 

♦ SET CHARACTERISTIC 200 

♦ DRIVE INITIATE. 

♦ SET CHARACTERISTIC 20. 

♦ GET STATUS 

♦ SET CHARACTERISTIC 40. 

♦ PRINT TS04 MICROCODE LEVEL (PASS 1 ONL 

REWIND. 

♦ REWIND. 

♦ REWIND AT BOT. 

WRITE/VERIFY. 

♦ WRITE/VERIFY PATTERN 1. 

♦ WRITE/VERIFY PATTERN 2. 

♦ WRITE/VERIFY PATTERN 3. 

♦ WRITE/VERIFY PATTERN 4. 

♦ WRITE/VERIFY PATTERN 5. 

♦ WRITE/VERIFY PATTERN 6. 
► WRITE/VERIFY PATTERN 0. 



SUBTEST 4 



WRITE TAPE 

* WRI1E 

* WRITE 

* ERASE 

* WR r TE 

* WRITr 



MARK, ERASE. 
TAP}- MARK. 
10 RECORDS 
10 TIMES 
TAPE MARK. 
TAPE MARK RETRi 



suurtsr 



SPACE FIIKS, 

♦ SPACE S t'UES REVERSE. 
> SPACE *2 FILES FORWARD. 



E3 
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SEQ 0030 



1144 
1145 
114b 
114? 
1148 
1149 
1150 
1151 
1152 
115? 
1154 
1155 
1156 

115: 

1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1.176 
1177 
1178 
3 179 
1180 
1181 
1182 
1183 
1184 
1185 
1166 
1187 
1188 
1189 
1190 
1191 



► SPACE 2 FILES REVERSE. 
♦ SPACE 2 FILES FORWARD. 



SUBTEST 6 



SPACE RECORDS. 

♦ REWIND. 

♦ SPACE 7 

♦ SPACE 7 
» SPACE 7 

♦ SPACE 7 



RECORDS FORWARD. 
RECORDS REVERSE. 
RECORDS FORWARD. 
RECORDS REVERSE. 



SUBTEST 7 



SUBTEST 8 



SUBTEST 9 



SUBTEST 10 - 



SU8TEST 11 



WRITE RETRY. 

> REWIND. 

♦ WRITE DATA. 

♦ WRITE KETRY. 

READ REV RETRY. 

♦ READ REVERSE. 

♦ READ NEXT REV. iE . 

♦ READ NEXT FORWARD. 

READ FWD RETRY. 

♦ READ FORWARD. 

♦ READ PREVIOUS FORWARD. 

♦ READ PREVIOUS REVERSE. 

CLEAN. 

♦ CLEAN. 

♦ REWIND. 

• WRITE/VFRIFY SWAPPED DATA BYTES. 

♦ WRITE/VERIFY EVEN LENGTH (RECORD 1) 

♦ WRITE/VERIFY ODD LENGTH (RECORD 2). 

♦ SET DATA BYTE SWAP. 

♦ WRITE/VERIFY EVEN LENGTH (RECORD 3) 

♦ WRITE/VERIFY ODD LENGTH ("RECORD 4). 

♦ CLEAR DATA BYTE SWAP. 



SUBTEST 12 



READ SWAPPED 

♦ READ REV 

♦ READ PEV 

♦ SET DATA 

♦ READ REV 

♦ READ REV 

♦ READ FWD 

♦ READ FWD 

♦ CLEAR DA 

♦ READ FWD 

♦ READ FWD 



DATA BYiES, 
RECORD 4. 
RECORD 3. 
BtTE SWAP. 
RECORD 2. 
RECORD 1. 
RECORD 1. 
RECORO 2. 
TA BITE SWAP 
RECORD 3. 
RECORD 4. 



"3 



SVC. Ml. B SOURCE f"TU MACU1 30C1046) 06-APR-84 08j51 PAGE 33 
CZTSHD.PU 06-APR-84 08;49 M$CNTOP; GPRM COUNT OPTION 



SEQ 0031 



11^2 
1195 
1194 
1195 
3196 
119 7 
1198 

119* 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 



5.2 



TEST 2 



5. 



TEST 3 - 



5.4 



5,5 



TEST 4 



TEST 5 



DATA RELIABILITY. 



1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 

SET CHARACTERISTIC 40 

REWIND 

WRITE/VERIFY 3?. RECORDS OF RANDOM LENGTH AND DAT 

2. WRITE AND READ COMMANDS ARE SELECTED AT RANDOM AND 
EXECUTED A RANDOM NUMBER OF TIMES WITH RANDOM 
LENGTHS AND RANDOM PATTERN UNTIL END OF TAPE IS REA 

3. AT THE END OF EACH PASS, A REWIND COMMAND IS ISSUED 
A PERFORMANCE REPORT IS PRINTED. 

NOTE: IF A RESTART COMMAND IS USED TO INITIATE 
TEST 1, THE INITIAL REWIND COMMAND IS NC 



WRITE COMPATABILITY/WRITE UTILITY. 

REWINDS AND WRITES RECORDS OF RANDOM LENGTHS 
AND RANDOM DATA FROM BOT TO EOT. 



READ COMOATABILITY/READ UTILITY. 

RhWII'DS AND READS ENTIRE TAPE, FORWARD AND REVERSE. 

EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 

THE SEQUENCE OF COMMANDS ENTERED t,Y THE OPERATOR 

IS EXECUTED, IF NO COMMANDS WERE ENTERED. A 

DEFAULT SEQUENCE OF REWIND/WRITE/READ REV/READ -WD/REWIN 

OF ENTIRE TAPE IS EXECUTED WITH RANDOM PATTERN 

AND RECORD LENGTH OF 2048 BYTES. 



G3 
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1226 6,0 DEVICE INFORMATION TABLES 

1227 

1228 

1229 6.1 GENERAL 

1230 

1 ~*31 

1232 THE TS04 TAPE SUBSYSTEM CONSISTS OF A TS11 UNIBUS TO SERIAL BUS 

1233 CONTROLLER CONNECTED TO A TS04 DRIVE. FROM A SOFTWARE VIEWPOINT 

1234 THIS CONFIGURATION 15 UNIQUE (FOR A UNIBUS DEVICE) IN A NUMBER 

1235 OF WAYS: 
123b 

1237 A. ONLY ONE REGISTER MAY BE WRITTEN - TSDB (TAPE SYSTEM 

1258 DATA BUFFER), 

1239 

1240 B. TWO REGISTERS MAY BE READ - TSSR AND TS3A (TAPE SYSTEM STATUS 

1241 REGISTER AND TAPE SYSTEM BUS ADDRESS REGISTER). 
1242 

1243 C. COMMANDS ARE NOT WRITTEN TO THE DRIVE t RATHER, COMMAND 

1244 POINTERS ARE WRITTEN WHICH POINT TO COMMAND PACKFTS SOME - 

1245 WHERE IN CPU MEMORY. THE COMMAND POINTER IS USED BY 

1246 THE TSOA SUBSYSTEM TO FETCH THE WORO(S) WITHIN THF COMMAND 
1^7 PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 

1248 

1249 1. COMMAND WORD 

1250 2, LOW ORDER BUFFER ADDRESS 

1251 3. HIGH ORDER BUFFER ADDRESS 
125^ 4. BYTE COUNT 

1253 

1254 D. THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC - 

1255 ESSARY TO DETERMINE WHETHER: 

1256 1. THE DRIVE IS READY TO ACCEPT ANOTHER COMMAND, 

1257 2, THE PREVIOUS COMMAND WAS EXECUTED WITHOUT ERCQR. 

1258 IF EITHER OF THE ABOVE CONDITIONS IS UNTRUE AT "JOB DONE" 

1259 OR "COMMAND INITIATION" TIME, IT MAY BE NECESSARY 

1260 TO GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHA1 
-261 ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION, 
1?62 

1263 E. EXTENDED STATUS REGISTERS ARE NOT READ DIRECTLY FROM 

1264 DRIVE REGISTERS} RATHErt, A "GET STATUS" COMMANO 

1265 IS ISSUED WHICH WILL CAUSE THE TS04 TO TRANSFER EXTENOEO 

1266 STATUS INFORMATION TO THE MEMORY AREA POINTED TO BY THE 

1267 BUFFER ADDRESS OF THE "GET STATUS" COMMAND, THERE ARE FOUR 

1268 EXTENDED STATUS REGISTERS, SEE b.3. 
1269 

12/0 F\ THE TSDB MUST BE WRITTEN WITH P DATO INSTRUCTION TO 

1271 PROPERLY WRITE THE COMMAND POINTER. A DATOB WILL 

1272 CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 

1273 SUBSYSTEM INIT, 
1274 

1275 Q 4 COMMAND PACKETS MUST RESIDE ON DIVIDE Bl rQ\K 

12W MEMORY BOUNDARIES (AS OPPOSED TO DIVIDE B* 2 OR WORD 

I? 7 ' BOUNDARIES) * 
12/8 

1279 
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G?RM COUNT OPTION 



SEQ 0033 



1280 
1281 
1282 
1283 
1284 
1285 
128t> 
1287 
1288 
128*> 
1290 
1291 
1292 
1293 
1294 
129!> 
1296 
12-V 
1298 



6.2 UNIBUS INTERKACE SPECIFICATIONS 



TS11/ 
TS04 


INT. 

VECTOR 


UNIBUS 
ADDRESS 


REGISTER 


FIRST 


224 


772520 
772522 


TSBA/TSDB 
TSSR 


SECOND 


154 


772524 
772526 


TSBA/TSDB 
TSSR 


THIRD 


160 


772530 
772532 


TSBA/TSDB 
TSSR 


FOURTH 


164 


772534 
772536 


TSBA/TSDB 
TSSR 



13 
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GPRM COUNT OPTION 



SEQ 0034 



1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1306 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

131? 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

134 7 

134H 

1349 

1350 

1351 

1 352 

1353 



6.3 BIT DEFINITIONS FOR TS11/TS04 REGISTERS 



6*3»l TS11/TS04 REGISTER SUMMARY 



15 14 13 l; 



!A15! !A14!A13!A12! 
TSBA ! ! ! ! • J 



!P15! 

TSOB • ! 

♦ — - * 

!SC ! 

TSSR ! ! 



!P14!P13!P12» 
iiit 

♦ - - -♦----♦ — ♦ 

•UPE!SPE!RMR! 
i • i i 



♦---♦ ♦---»■--♦ 



- - ♦ 



11 10 09 

A11.'A10!A09 
i i 

P11!P10!P09 
i j 

NXM}N8A!A17 
j i 

(. ....».,. + -.- 
*---♦---♦•■ .- 



XSTO ! 



TMK! JRLSJLETJRLL! »WLE!NEF !ILC 



DLT 



XST1 ! 



XST2 J 



OPM 



t _ - « , - , 



i 

» - 



! !COR!CRS 
i i i 

!SIP!BPE!CAF 



i i 

TIGJOBFJSCK 
!N70! 



! WCF ! 
i i 



08 07 06 

A08!A07!A06 
i j 

_ ._». — ♦ .. — 

P08IP07JP06 
j i 

A16JSSRJ0FL 



ILA»MOT!ONLJ 






•IPRJSYN! 
! ! DRP • 

DTPSDT75DT6! 



i 



i 



XSU ! 



MICRO DIAGNOSTIC ERROR CODE 



♦ ---»-- -♦-■ - » 
!LMX!OPI! 



05 04 03 

A05!A04!A03 
j i 

----*-- — ♦■ - - * 

P05»P04»P03 



FC1»FC0.*TC2 
i i 

---♦- — * •■■- 



IE > 



VCK JPED 

I 



- - - • 



IEDIPOS 
LC0JN7N 



IPO! 
ITM! 

DT5!DT4!DT3 
j i 

••--#---♦--- 

tlEV!CRF*DCK 



»__..♦• .^f- 



♦.._»_. 



i » it i 

♦---*---♦ ♦ - - . » 



02 01 

*---♦-- 

A02IA0 
♦ 

P02!P1 
i 



TC1ITC 
i 



- - - ♦ - - 
WLK5B3 



POL! UN 

LRC'CR 
— - + _ .. 

DT2JDT 



NOI»LX 



-..+.-..♦ >.-_*.- 



TERMINATION CLASS CODES (TSSR TC0-TC2): 



NORMAL TERMINATION 

ATTENTION CONDITION 

TAPE STATUS ALERT 

FUNCTION REJECT 

RECOVERABLE ERROR - 

DOUN TAPE FROM START UF FUNCTION 

RECOVERABLE ERROR - TAPE NOT MOVED 

UNRECOVERABLE ERROR TAPE POSITION LOST 

FATAL CONTROLLER ERROR 



TAPE POSITION - ONE RECORD 



FATAL CLASS CODES (TSSR FCO-KCl): 

» MICRO DIAGNOSTIC FAILURE (DISPLAYED IN TS04 OPERATOR PANEL AND 

1 - I/O SEQUENCER CROM PARITY ERROR. 
a « MICROPROCESSOR CROM PARITY ERROR. 

SILO PARITY ERROR, 

SERIAL BUS PARITY ERROR DETECTED AT iSU ( { '.PE ) . 
SERIAL. BUS PARITY ERROR DETECTED AT Tf.04 (BPEt. 
FATAL EKROR HALTS 1750 W,*/ IN TS04 PROGRAM COUNTER DISPLAY. 
3 « L0S5 OF AC POWER HAS BEEN DETECTED, 



J 3 



SVC. MLB SOURCE FILE MACY11 30(1046) 06-APR-84 08s51 PAGE 37 
CZTSHD.P11 06-APR-84 08;49 MSCNTOPj GPRM COUNT OPTION 



SEQ 0035 



1354 

1355 

135t> 

1357 

1358 

1359 

1360 

136. 

136^ 

1363 

1364 

1365 

136o 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

17.60 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1338 

1389 

1390 

1391 

139? 

1593 

1394 

1395 

1396 

1597 

1598 

1399 

1400 

1401 

140,? 

1405 

1404 

1405 

1406 

140/ 

1408 

1409 



6.3.2 TS11 STATUS REGISTER CTSSR) 

UNIBUS ADDRESS * 2 - READ ONLY 

15 14 13 IP 11 10 09 



08 07 06 



05 04 03 



--» »__..»-.._»- 



♦---♦-- 



0? 01 



► — - ♦ - - 



!SC ! »UPE!SPE.'RMR! JNXM'NBA * A17 I ! A16! SSR J C^L ! !FC1 »FCO ! TC? • fTCl.'TCO! 
i ii i i i» i i it i i ii i i it i i 



BIT NAME TCC 
15 oC S 



14 UPE 4/5 



13 SPE 7 



1.? RMR $ 



11 NXM 4/5 



10 NBA *i 



DEFINITION 



-*---♦ ♦-.-♦--.♦ 



UHEN SET, INDICATES THAT 

DID NOT COMPLETE WITHOUT 

SPECIFICALLY, EITHER AN ERROR WAS 

OR AN EXCEPTION CONDITION OCCURRED. 

CONDITIONS CAN BE TAPL MARKS ON READ 

EOT WHILE 
THE ERROR 



SPECIAL CONDITION, 

THE LAST COMMAND 

INCIDENT. 

DETECTED 

EXCEPTION 

COMMANDS, REVERSE MOTION AND AT BOT 

WRITING. ETC. MAY ALSO BE SET BY 

BITS CONTAINED IN THE TSSR REGISTER: 

RMR, AND NXM. THE TERMINATION CLASS 

OTHER THAN (UNLESS RMR IS THE ONLY 



UPE, SPE, 
BITS ARE SONET 
ERROR - SEE RM 



UNIBUS PARTLY ERROR. SET BY THE TS11 WHEN If 
DETECTS A ARITY ERROR ON THE UNIBUS DATA WHEN 
TRANSFERRING TO OR FROM THE CPU'S MEMORY. 



SERIAL BUS 
THE TS11 



PARITY ERROR. THIS BIT IS SET EM 
WHEN IT DETECTS A SERIAL BUS PARITY 



ERROR ON DATA RECEIVED FROM THE TS04. 

REGISTER MODIFICATION REFUSED, SET By THE TS11 
WHEN A COMMAND POINTER IS LOADED INTO TSDB AND 
SUB -SYSTEM READY (SSR) IS NOT SET. NOTE THAT 
THIS BIT CAUSES SPECIAL CONDITION BUT NO TERMINATIO 
CLASS (IN FACT, THE TS01 NEVER SEES THIS ERROR) 
BECAUSE ON A SYSTEM WITH NO BUGS, THIS BIT MAY 
COME UP ON AN ATTENTION MESSAGE. IF ATTNS ARE 
NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 
OF EITHER A FATAL CONTROLLER ERROR OR A SOFTWARE 
BUG. 

NON-EXISTENT MEMORY. SET BY THE TS11 WHfcN 
TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 
WHICH DOES NCT EXI^T , MAY OCCUR WHEN FF TCHING 
THE COMMAND PACKET. FETCHING OR STORING DATA, 
OR STORING THi" MESSAGE PACKET. 

NthO PUFFER ADDRESS. WHEN SET INDICATE THAT 
THE TSQ4 NEEDS A MESSAGE BUFFER ADDRESS. THIS 



I<3 



SVCMtB SOURCE FILL MACU1 30(1046) 06-APR-84 08:51 PAGE 36 

CZTSHD.Pll Ob-AFR-84 08;49 M$CNTOP; GPRM COUNT OPTION 



1410 
1411 
141.? 
141? 
1414 
1415 
141b 

141 / 

1418 
HI* 
1450 
1421 
1422 
1423 
1424 
1425 
1426 
142? 
1428 
1429 
1430 
1431 
1432 
1433 
14*4 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
144 3 
1444 
1445 
1446 

144 7 
1448 
1449 
1450 
1451 
1452 

1453 
1454 
1455 
1456 

145 7 
1458 
1459 
1460 



09 A17 



08 
07 



A16 
SSR 



06 OFL 5,1.3 



05 FCl 



04 
03 



rco 

TC2 



02 TCI 



00 



UNIBUS ADDRESS 



i » 



SEQ 0036 



bit is cleared during the si£T characteristics 

COMMAND (IF A GOOD ADDRESS WAS GIVEN). 



BUS ADDRESS tfIT 
THE VALUES OF 
REGISTER, 



17. A17 AND A j.6 (BIT 08) /RACK 
BITS 17 AND 16 OF THE TSBA 



BUS ADDRESS BIT 16. SEE A17 (BIT 09). 

SUB -SYSTEM READY. WHEN SET. INDICATES THAT i HE 
TS11/TS04 SUBSYSTEM IS NOT BUSY AND IS READY TO 
ACCEPT A NEW COMMAND POINTER. 



OFF-LINE 
OFF-LINE 
TOMMANDS 
OF 1 CON 



WHEN SET, INDICATES THAT 
AND UNAVAILABLE FOR ANY 



THE TS04 IS 
TAPE MOTION 



THIS BIT CAN CAUSE 
ATTN INTERRUPT) OR 3 



A TERMINATION CLASS 
(RESULTS IN NEF). 



FATAL TERMINATION CLASS 01. FCl AND FCO (BIT 
04) ARE USED TO INOICATF THE TfPE OF FATAL 
ERROR WHICH HAS OCCURRED UN THE TS04. THESE 
BITS ARE VALID ONLt WHEN SC IS SET AND THE 
TERMINATION CLASS CODE BITS ARE ALL SET (111). 

FATAL TERMINATION CLASS 00. SEE FCl (BIT 05), 

TERMINATION CLASS BIT 02. THIS BIT. ALONG WITH 
THE TCI AND TCO BITS. ACT AS AN! OFFSET VALUE 
WHENEVER AN ERROR OR EXCEPTION CONDITION OCCURS 
ON A COMMAND. EACH CF THE EIGHT POSSIBLE 
VALUES OF THIS FIELD REPRESENT . PARTICULAR 
CLASS OF ERRORS OR EXCEPTIONS. THE CONDITIONS 
IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND. AS 
APPLICABLE, RECOVERY PROCEDURES. THE CODE 
FROVl'OED IN ThIS FIELD IS EXPECTED TO BF 
UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
HANDLING OF THE CONDITION. 

TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 

TERMINATION CLASS BIT 00. SEC TC2 (&H 05), 

NOT USED, 



WRITE ONLY 



SUBSYSTEM INITIALLY. 



L5 



svc. mi. « source Fit E 

CZTSHO.PU 06-APR-84 

14*1 

i46c: 

1465 
14b4 
1465 
1466 
1467 
1468 
1469 

1470 

1471 
14 72 
14 7? 
14/4 
14. M > 
14 76 
147 : 
14/8 
14 79 
1480 
1481 
1482 
1405 
1484 
1485 
1486 
1487 
I486 
1489 
1490 
1491 
149? 
1493 
1494 
1495 
1496 

149 7 
1498 
1499 
1500 
1501 
1502 
1505 
1504 
1505 
1506 

150 7 
1508 
1509 
1510 
1511 
1512 
1515 
1514 
1515 
1516 



MACU1 
OS; 49 



50(1046) 



06 APR -84 
hUCNTOP; 



08:51 PAGE 59 

GPW1 CJUNT OPTION 



SEQ 0057 



6*3.3 EXTENDED STATUS REGISTER (XSTATO^ 



15 14 13 12 11 10 09 08 07 06 05 04 
♦ + ♦ ♦-.-f.-.f + __.. + ._..+ #. f f + — », ♦_._*.... 

JTMK! »RLS!LET!RLL! !ULE !NEF • ILC ! • ILAJMOT »ONL » !IE JVCKMT.D! JWLKJBOT! 
i ii i i it i i ii i i ii i t ii i i 



03 02 01 
■ - - ♦ f — ♦ - - - ♦ 



* + ♦ f.-- fr 

8IT NAME TCC 
15 TMK S,2 

14 RLS 2 



- - ¥ f--.f-.-f- 



13 LET 2 



12 RLL 2 



11 Wl.E 3,6 



10 H£F 3 



+ __-* + -...- + 



DEFINITION 



TAPE MARK OETECTEO. SET WHENEVER A TAPE 
WAS DETECTED DURING A READ, SPACE, OR bi< ...■ 
COMMAND AND AS A RESULT OF THE WRITE TAPE NARK 
OR WITE TAPE MARK RETRY COMMANDS. 



RECORD LENGTH SHOPT, THIS BIT INDICATES THAT 
EITHER THE RECORD'S LENGTH WAS SHORTER THAN THE. 
BYTE COUNT ON READ OPERATIONS, A SPACE RECORD 
OPERATION ENCOUNTERED A TAPE MARK OR BOT BEFORE 
THE POSITION COUNT WAS EXHAUSTED, OR A SKIP 
1APE MARKS COMMAND WAS TERMINATED B s 
ENCOUNTERING BOT Oh A DOUBLE TAPE MARK (IF THAT 
OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR TO 
EXHAUSTING THE POSITION COUNTER. 

LOGICAL END OF TAPE. SET ONLY ON THE SKIP TAPE 
MARKS COMMAND WHEN EI'HER TWO CONTIGUOUS TAPE 
MARKS ARE DETECTED OR WHEN MOVING OFF OF BOT 
AND THE FIRST RECORD ENCOUNTERED IS A TAPE 
MARK. THE SETTING OF THIS BIT WILL NOT OCCUR 
UNLESS THIS MODE OF TERMINATION IS ENABLED 
THROUGH USE OF THE SET CHARACTERISTICS COMMAND. 



RECORD LENGTH LONG. WHEN SI 
INDICATES THAT THE RECORD REAP 
THE BYTE COUNT SPECIFIED. 



WAS 



THIS 
LONGER 



BIT 
THAN 



WRITE LOCK ERROR. WHEN SET, INDICATES THAI A 
WRITE OPERATION WAS ISSUED BUT THE MOUNTED TAPE 
DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT 
LOCK SWITCH ACTIVATED DURING THE OPERATION. 



NON-EXECUTABLE FUNCTION. WHEN 
THAT THE COMMAND COULD NOT BE 
ONE OF THE FOLLOWING CONDITIONS 



SET. INDICATES 
EXECUTED DUE TU 



THE COMMAND SPECIFIED REVERSE TAPE 
DIRECTION BUT THE TAPE WAS ALREADY 
POSITIONED AT BOT. 
THE ISSUING OF ANY COMMAND, EXCEPT REWIND, 



MS 



SVC. MLB SOURCE * II. t 
CZTSHD.P11 06-APR-84 

1517 

1518 
1519 

1520 
1521 
1522 
152? 

1524 

1525 

1526 

152? 

1528 

152 <: » 

1530 

1531 

1532 

1533 

1534 

15^5 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

154 7 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

156; 

1568 
1569 
15/0 
15 71 



MACU1 
08:49 



30(1046) 



06 -APR -84 

M$CNTQP: 



08:51 PAGE 40 

GPRM COUNT OPTION 



09 

08 

07 

06 

05 

04 



ILC 

ILA 

HOT 
ONL 

IE 
VCK 



03 PED 



02 



01 



WL.K 



HOT 



00 EOT 



S,3 



5,3 



5.2 



SEQ 0038 



CLEAR VOLUME. 
VOLUME CHECK 



UNLOAD, OR A COMMAND WITH THE 
CHECK (CVC) BIT SET, WHEN THE 
BIT IS bET. 

- ANY COMMAND. EXCEPT GET STATUS OR DRIVE 
INITIALIZE, WHEN THE TS04 IS OFF-LINE. 

- ANY URITk COMMAND WHEN THE TAPE DOES NOT 
CONTAIN A WRITE ENABLE RING (WRITE LOCK 
STATUS - WLS). 

ILLEGAL COMMAND. SET WHEN A COMMAND IS ISSUED 
AND EITHER ITS COMMAND FIELD OR ITS COMMAND 
MODE FIELD CONTAINS CODES WHICH ARE NOT 
SUPPORTED BY THE TS04 . 

ILLEGAL ADORESS. (MORE THAN 18 BITS OR ODD WHEN 
AN EVEN ADDRESS IS REQUIRED,) 



TAPE IS MOVING. 

ON LINE. WHEN SET, INDICATES THAT THE TS04 
ON-LINE AND OPERABLE. 



IS 



INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
INTERRUPT ENABLE BIT SUPPLIED ON THE LAST 
COMMAND. 

VOLUME CHECK. WHEN SET. INDICATES THAT THE 
DRIVE HAS BEEN EITHER POWERED DOWN OR TURNED 
OFF-LINE. CLEARED BY THE CLEAR VOLUME CHECK 
CCVC) BIT IN THE COMMAND HEADER WORD. THIS BIT 
CAN CAUSE A TERMINATION CLASS OF 3. 

PHASE ENCODED DRIVE. WHEN SET, INDICATES THAT 
THE TS04 IS CAPABLE OF READING AND WRITING ONLY 
1600 BPI PHASE ENCODED DATA. WHEN RESET, 
INDICATES THAT THE TS04 HAS ONLY 800 BPI NRZI 
DATA CAPABILITIES. 

WRITE LOCKED, WHEN SET, INDICATES THAT THE 
MOUNTED REEL OF TAPE DOES NOT HAVE A 
WRITE-ENABLE RING INSTALLED. THE TAPE IS. 
THEREFORE, WRITE PROTECTED. 

BEGINNING OF TAPE. WHEN SET, INDICATES THAT 
THE TAPE IS POSITIONED AT THE LOAD POINT AS 
DENOTED BY THE BOT REFLECTIVE STRIP ON THE 
TAPE, 



END OF TAPE. r HIS 
IS POSITIONED AT 
REFLECTIVE STRIP. 
TAPE PASSES OVER 



BIT IS SET WHENEVER THE TAPE 
OR BEYOND THE END OF TAPE 

DOES NOT RESET UNTIL THE 
THE REFLECTIVE STRIP IN THE 



REVERSE DIRECTION UNDER PROGRAM CONTROL 



N3 



SVC, Mi.B SOURCE FILL 
CZTSHD.Pli 06-APR-S4 

157.? 
1575 
1574 
15 75 

1576 

157.' 

1578 

1579 

\580 

1581 

1582 

1583 

1584 

1585 

1586 

158 7 

1588 

1589 

1590 

1591 

1592 

'595 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1615 

1614 

1615 

1616 

161/ 

1618 

1619 

1 620 

1621 

1622 

16? 5 

1624 

16< J 5 

1626 

1627 



MAC til 
08:49 



30(1046) 



06 APR -84 
M$CNTOP{ 



08:51 PAGE 41 

GPRM COUNT 



OPTION 



SEQ 0039 



6.3.4 EXTENDED STATUS REGISTER 1 (XSTAT1) 



15 14 13 12 11 



10 09 08 07 06 05 04 03 



!DLT! 



- - *• ♦---*---♦ 



BIT NAME TCC 

15 DLT 4 

14 

13 COR S 

12 CRS 4 



ll TIG 4 



10 DBF 4 



09 

08 

07 



N/0 
5CK 



1PR 



.4 



02 01 

♦ * — ♦ 

•POLJUNC! 

•LRCJCRC! 
- ♦ *■ *---f---+ <• f---t---f t---i.-._ + ---f (.___ + --- f 



! COR! CRS! ! TIG! DBF » SCK ! 
! ! ! ! !NZO! ! 



!IPR!SYN! 

! !DRP! 



»IP3!IED!P0S! 
!ITM!LCO!NZN! 



DEFINITION 



WHEN THE I/O SILO IS PULL ON A 

ON A WRITE. THES r CONDITIONS 

THE UNIBUS LATENCY EXCEEDS THE 



DATA LATE. SF 
READ OR EMF* 
OCCUR WHENEV 1 '' 
DATA TRANSFER «ATE OF THE TS04. 

NOT USED, 

CORRECTABLE DATA. IN PHASE ENCODED MODE, 
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED, 



A 



CREASE DETECTED. FOP NRZI , ALL DATA TRACKS 
DROPPED OUT FOR MORE THAN THREE CHARACTER TIMES 
BUT FOR LESS THAN ,1 INCHES OF TAPE. FOR PE , 
EIGHT OUT OF NINE DATA TRACKS WENT DEAD FOR 
LESS THAN .1 INCHES BEFORE A VALID POSTAMBLE 
WAS DETECTED 



TRASH IN 
IN A GAP 
OR ERASE 



THE GAP. 
DURING i\ 
COMMAND. 



NON-ERASED 
READ, WRITE 



DATA WAS DETECTED 
WRITE TAPE MARK, 



DESKEW BUFFER FAIL. • 1 Nt Oh THE DESKEW BUT K;.RS FAILED 
TO ASSERT "OUTPUT READY" WITHIN 20 MICROSECONDS 
AFTER BEING ENABLED. THE DEAD TRACK BITS WILL 
INDICATE ON WHICH TRACKS THIS FAILURE OCCURRED. 
THIS ERROR IS PROBABLY A RESULT OF A BROKEN FOR- 
MATTER. 



NRZ FIFO OVERRUN 



SPEED CHECK. TAPE S^EED WAS Of- F B> MORE th4N 
5* DURING A WRITE DmTA OPERATION. NOTE I HAT SPIED 
AVERAGED OVER 8 TICKS AND THE AVERAGE MUST BE 0> 
5* TO CAUSE THIS ERROR. 



NOT USED. 

INVALID PREAMBLE. SET ON A 

PREAMBLE APPEARS TO f3t 

CHARACTERS 0^ LONGER THAN 4*i 



PE DRIVE > ThE 

SHORTER THAN 3r 

CHARACTERS. 4i S2 



v\ 



SVC. MLB SOURCE Hit. MAO 11 30(1046) 

CZTSHO.Ptl Ob -APR 84 08j49 

1W8 

its:"* 

1650 
1631 
1630 
1©33 
1634 
1635 
l63o 

io3: 

l63d 
lt>3* 

1640 

1641 

164? 

lo43 

1644 

1645 

1646 

164? 

1648 

164^> 

1650 

It, SI 

lb52 

1653 

1654 

1655 

165o 

165? 

1658 

1659 

1660 

1661 

166.? 

1663 

1664 

1665 

1666 

166" 

1668 

1669 

16?0 

16/1 

167d' 

1673 

16 74 

16 75 

1676 

16 7- 

i6*e 



06 APR -84 
M*CNT0Pj 



08 { 51 PAGE V 

GPRM COUNT OPTION 



SEQ 0040 



06 StN 4 

DRP 4 

05 IPO 5,4 

ITM S.4 

04 IED 4 

LRO * 

03 POS S,4 



02 



01 



00 



HZH 


S,4 


POL 


4 


LPC 


4 


UNC 


4 


CRC 


4 


MTF 


4 



VPt 



SET IF THE PREAMBLE IS INCORRECTLY ENCODED 
BEYOND THE FIFTEENTH CHARACTER IN READ OR THE 
TENTH CHARC1ER IN READ-AF TER -WRITE . 

SYNCH FAILURE. SET ON A PE DRIVE I' THE 
FORMATTER WAS UNABLE TO ACHIEVE SYNCHRONIZATION 
IN THE PREAMBLE. 

NRZ RECORD DROPPED A CHARACTER (THE NEXT CHARACTER 
WAS TO BE CONSIDERED CRC). 

INVALID POSTAMBLE, SET ON A Pf DRIVE DURING 
READ OR WRITE ir ANY Of THE FIRST 59 CHARACTERS 
OF THE POSTAMBLE ARF NOT READ CORRECTLr, 

ILLEGAL TAPE MARK FOR NRZ. 

INVALID END DATA. FOR PE , EIGHT OUT OF NINE 
TRACKS WENT DEAD BEFORE THE P0STAM61 F WAS DETECTED 

FOR NR/I # DATA WAS NOT DFTECTFO IN EITHER THE 
LRCC CR CRCC WINOOWS, ClRC WAS JERO) 

POSTAMBLE SHORT. SET ON PF DRIVES DICING A 
READ OR WRITE WHEN LESS THAN 38 ALL -ZEROES 
CHARACTERS ARE READ FOLLOWING THE ALL -ONES 
CHARACTER, 

NR7 NOISE RECORD (FEWER THAN IM10) FRAMES). 

POSTAMBLE LONG. SET ON PE DRIVES DURING READ 
OR WRITE OPERATIONS WHEN THE POSTAMBLE EXCEEDS 
4^ CHARACTERS. 

LRC ERROR. SET ON NR<?I DRIVES WHEN THE LRCC 
CHARACTER WAS FOUND IN ERROR. 

UNCORRECTABLE DATA. SET ON PE DRIVES WHEN 4 
PAR in FRROR OCCURRED WITHOUT A CORRESPOND ING 
DEAD TRACK INDICATION. 

CRC ERROR. SET ON NR«TI DRIVES WHEN THE. CRC 
CHARACTER WAS FOUND TO BE IN ERROR. 

MULTI- TRACK ERROR. SET ON PE DRIVES WHEN MORE 
THAN ONE DEAD TRACK OCCURRED IN THE PREAMBLE OR 
IN THE DATA FIELD. 

VERTICAL PARITi ERROR. SF T ON NR/I DRIVES UHt N 
A CHARACTER DID NOT CONTAIN AN QUO NUMQLR 01" 
ONE HITS, 



'I 



SVC. Ml B SOURCE: * ILL 
CZTSHD.PU 06 -APR 

lo7* 
1680 

1681 
1682 
168? 
1684 
lt>8S 
1686 

168: 

1688 

16*9 
1690 

1691 
16*2 

1695 

1*94 
169S 

16^ 

169' 
1698 
169^ 
1"00 
KOI 
1 702 
1V0S 
1704 
1705 
1706 
170' 
1708 
1709 
1710 
1711 
1 *12 
1715 
1714 

ins 

1^16 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
W2.i 
1726 
1727 
1728 
1729 
1750 

l.'n 
: M2 

1734 



84 



MAC1 ii 
08:49 



30(1046) 



06 APR 84 
MfCNTOPt 



08 j 51 PAGE 4 5 
GPRM COUNT 



11 
10 

09 

OM 



OPTION 



SEQ 0041 



6.3,5 EXTENDED STATUS REGISTER 2 CX5TAF2) 



IS 



14 13 12 



11 10 09 



08 7 06 



OS 04 03 



02 01 



-»-•-♦ » - - 



!0PM! !SIP»RPE!CAF» • 
» ii i i ii 



BIT NAME. TCC 

IS OPM S 

14 SIP 7.F2 

13 BPE 7 t F2 



12 CAF 



WO" 



DTP 



o. 1 


or/ 


06 


UT6 


OS 


OTS 


04 


OK 


03 


0T3 



!WCF» • !DTPJ0T7!DT6» JOTS J0T4J0T3J !DT2!DT1! 
t } ii i ; ii i ; it I i 



♦•--►- 



»...» . . f . .. . * ♦..-f. -.»...# 



->-•-*---* ♦-_-►,- 



DEFINITION 



OPERATION IN PROGRESS. (TAPE MOVING) 

SILO PARITY ERROR, CAUSES FATAL CLASS 2 BECAUSE THE. 
ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 
MESSAGE PACKET. 

SERIAL BUS PARITY ERROR AT DRIVE, SET BY THE 
TS04 WHEN A PARITY ERROR IS DETECTED ON DATA 
TRANSMITTED FROM THE TS11 TO THE TS04. CAUSES FATAL 
CLASS 2 BECAUSE THE ERROR MIGHT HAVE OCCURRED DURING 
THE TRANSMISSION OF THE MESSAGE PACKET. 

CAPSTAN ACCELERATION FAIL. AFTER ACCELERATING 
TAPE FOR .2 INCHES, THE TAPE SPEED WAS CHECKED 
AND FOUND TO BE OUT OF TOLERANCE BY MORE THAN 
10*, 

NOT USED. 

THE WRITE BOARD IS NOT EMPTYING THE I/O SILO AT 
THE PROPER RATE, 1HIS ERROR CAN BE THE RESULT OF 
THE W^ITE BOARD CLOCK NOT 3EING TURNED ON (BROKEN 
HARDW'SE ). 

NOT USED. 

DEAD TRACK PARITY, THE BITS DTP THROUGH D^O 

INDICATE WHICH TRACK(S) WENT DEAD, IF AN^, 

DURING THE LAST DATA TRANSFER OPERATION. ZY 

Dt.SKFW BUFFER FAIL (DBF) IS SET, THESE BITS 
INDICATE WHICH CHANNEL FAILED, 



DEAD TRACK 7. 

DEAD TRACK 6. 

DEAD TRACK r > , 

DEAD TRACK 4. 

DEAD TRACK 3. 



SEE DTP. 
SEE DTP. 
SEE DTP. 
SEE DTP. 
SEE DTP, 



SVC. MLB SOURCE * ILL 
CZT;,HD,Plt 06 -APR -84 

1755 
175t> 

1757 

1758 

1740 
1741 
1 74^ 
1745 
1-44 



MACU1 
08;49 



30(1046) 



06 APR- 84 
M$CNT0P} 



\y\ 



08} 51 PAGE 44 

GPRM COUNT OPTION 



(V 

01 

00 

NOTE: 



DT«? 
0T1 

OTO 



SEQ 0042 



DEAD TRACK ?. 
DEAD TRACK 1. 
DEAD TRACK 0. 



ser DTP, 
SEE DTP. 
SEE DTP, 



ON A SET CHARACTERISTICS COMMAND, THE UCOOE LEVEL IS RbTtJRNED 
IN DT7 THRU DTO. ON A GET STATUS COMMAND, THE RESIDUAL CAPSTAN 
TICK COUNT (INTERNALLY R7) I-;. RETURNED I'd 0T7 THRU DTO. 



E4 



SvC.MUl SOURCE ► III MACm 30(1046) 06 APR -84 08}51 PAGE 45 
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SEQ 0043 



j 7<r* 

1746 
1/4 7 
1748 
i 74 O 

i ? so 
irsi 

1753 
17*4 
1 T>5 

IV 56 
7.?57 
17*" 8 

1 760 
1761 
1V( U ? 
1 .'63 
1764 
1 765 
IV 66 
1767 

1"'66 
1 76 o 

1/70 
17/1 
1772 
1775 

17 74 
1775 
1776 
1. 7 7 7 
17 78 
1 7 "'4 

I ;«o 

.! 761 

i /8? 

1785 
17ui 
1/«S 

1 786 

: ;e.7 

1 7rta 
1 78? 
1 ."-*G 
J 741 
3. W 
1 7').'. 
! /"<4 
1 'f K i\* 
3 7<tf, 
1 .'9; 
1 .'98 

] :y'i 

1000 



b.3.b EXTENDED STATUS REGISTER 3 (XSTAT3) 



15 



14 13 12 



11 10 09 



08 07 06 



05 04 03 



».--.-♦ ♦ 



MICRO DIAGNOSTIC ERROR CODE 



♦ ---♦ ♦ 



02 01 



* — -♦_..-♦ 



♦ ♦• ♦ ¥ 



BIT NAME TCC 



15 TO 08 



07 NTL 



06 

05 
04 



OP I 

REV 
CRF 



03 UCK 



S 
7 

S,6 



02 NOI 



-»-■-♦ #.--*.. . - # - - - * 



! LMX ! OPI ! ■ REV ! CRF ! DCK • • NOI ! LXS • 
» ; it i j ii ; i 



DEFINITION 



MICRO DIAGNOSTIC ERROR COOE . (SEE LIST OF CODES BELOW) 
ALL ERROR CODES IN THE TABLE WILL BE DISPLAYED ON 
THE TS04 CONTROL PANEL BUT ONLY CODES HIGHER THAN 
110 WILL BE AVAILABLE TO CPU DIAGNOSTICS FOR PRINTOUT 
IN THE MICRO DIAGNOSTIC ERROR CODE FIELD OF XSTA13. 
THIS ERROR CODE FIELD IS VAl ID ONLY WHEN THE 
TERMINATION CLASS CODE IN THE TSSR EQUALS 7 AND THE 
FATAL CLASS CODE IN THE TSSR EQUALS 0, INDICATING 
AN INTERNAL DIAGNOSTIC FAILURE. 

LIMIT EXCEEDEO. SET WHEN THE TAPE TENSION ARMS 
HAVE EXCEEDED THEIR ALLOWABLE 1 RAVEL AND HAVE 
CAUSED THE ACTIVITATION OF THE LIMIT SWITCHES. 
NO TENSION EXISTS ON THE MOUNTED TAPE, 

OPERATION INCOMPLETE, SET WHEN A READ. SPACE. 
OR SKIP OPERATION HAS MOVED 25 FEET OF TAPE 
WITH0U1 DETECTING ANY DATA ON THE TAPE. 

DIRECTION OF CURRENT OPERATION WAS REVERSE (BUT 
IS IF REWIND OR FORWARD) 

CAPSTAN RESPONSE FAILURE. A MOTION COMMAND WAS 
GIVEN TO THE CAPSTAN BUT WE DID NOT GET A TICK 
BACK WITHIN A REASONABLE AMOUNT OF TIME. 

DENSITY CHECK, SET ON PE DRIVES WHEN A PE 
IDENTIFICATION BURST WAS NOT DETECTED WHEN 
MOVING OFF OF BOT. SET ON NRZI DRIVES WHEN A 
NON-NRZI IDENTIFICATION BURST WAS FOUND WHEN 
MOVING OFF OF BOT. 

NOISE RECORD. SET DURING A READ OR SPACE 
OPERATION WHEN A BURST OF FLUX CHANGES. WHICH 
DO NOT QUALIFY AS A RECORD (BUT TOO MAN1 TO 
IGNORE). ARE DETECTED: 

NR/I: AT LEAST TWO CHARACTERS IN A ROW BUT 
LESS THAN TWELVE, FOLLOWED Bt A CHARACTER IN 
EITHER THE CRCC OR LRCC WINDOWS, 



F4 



^U .M! H M\«Ct * 111. 
C21SHD.P11 Ob APR -84 

180.? 

i«o*> 

1804 
1805 
180i. 

*80 :* 
i sow 

l*u 
l^i. > 

131.5 
181* 
1815 
18 Ic 
18' "* 
1818 
18 1 ( > 

i«;-m 

j *<\> 
1625 

uv4 

18,^ 

18.: / 

16i:8 

:^oO 

1 8 *, 1 

m s: » 

1 H J d 
IK'? 
Id 3.3 

l- ( < ,0 
?.84 t. 
HM..' 
1*4 5 

I84 r : 

Z0-4r 
1«4V 
16 M 
l-'JV* 
\8*:»0 

} T t 

18 V. 



MAC Hi 
08:49 
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SEQ 0044 



01 LXS 



00 RIB 



PE: AT LEAST 24 CHARACTERS IN A ROW THAT DO 
NOT QUALIFY AS A TAPE MARK OR A DATA 
PREAMBLE . 

LIMIT EXCEEDED STATICALLY, THIS BIT IS SET ANY 
TIME THE UNIT SWITCHES ARE EXCEEDED. THIS BIT 
CAN ONLY BE CLEARED BY MANUALLY LOADING THE TAPE 



REVERSE INTO BOT. A READ, SPACE, OR SKIP 
COMMAND ALREADY T.N PROGRESS HAS ENCOUNTERED THE 
BOT MARKER WHEN MOVING TAPE IN THE REVERSE 
DIRECTION. TAPE MOTION WILL BE HALTED AT BOT. 



MICRO DIAGNOSTIC ERROR CODES 



FOLLOWING IS A LIST Of THE ERRORS WHICH ARE DISPLAYED IN THE MICRO 
DIAGNOSTIC ERROR CODE (XSTAT5 BITS 15 - 08) ANO ALSO IN THE LIGHTS ON THE 
TS04 CONTROL PANEL, DUE TO FAILURES ON THE CAPSTAN BOARD, I/O BOARDS, 
WRITE BOARD, REAO BOARD, OR FORMATTER BOARD, THE MICRO WILL BE IN A 
TIGHT LOOP IN THE DISPM PROGRAM, WAITING FOR OPCRATOR OR CPU 
INTERVENTION WHILE THE ERROR IS BEING DISPLAYED IN THE CONSOLE 
LIGHTS. IT IS APPARENT THAT AN ERROR IS BEING DISPLAYED IF the "UOK" 
LIGHT IS NOT LIGHTED, THE PROCESSOR IS NOT STOPPED, ANO AN OCTAL 
NUMBER C 100-377) IS BEING DISPLAYEO IN THE LIGHTS. TO SCOPE LOOP 
THESE TESTS, ENTER MAINTENANCE MODE (ON-LINE SWITCH TO M Of*F" 
POSITION, MAINTENANCE SWITCH UP, PRESS RESET), ENTER THE OFF-LINE 
TEST NUMBER (SEE SCOPE LOOP COLUMN BELOW) IN THE OPERATOR CONSOLE 
LIGHTS (ENTER ONES WITH LEFT MOST SWITCH, ENTER ZEROES WITH 
RIGHT-MOST SWITCH), ANO PRESS ON-LINE B'JTTON. TEST WILL LOOP L^TIL 
ON-LINE SWITCH IS RETURNED TO OFF -LINE POSITION, ERRORS WILL BE 
DISPLAYED CONTINUOUSLY. 



ERROR PROGRAM 
(DISPLAY) 



ERROR DESCRIPTION 



LIKEL> 

MODULE 



SCOPE 
LOOP 



337 



100 



OPERATIONAL 
CODE 



10TSM 



CAPSTAN RUNAWAY ERROR (H3.RNO. CAPSTAN DIDN'T 
STOP WITHIN ACCEPTABLE WINDOW AFTER LAST COMMAND. 



IGl 



10TSM 



BASIC I/O MICRO FAILURE (PARITl 
ERROR, IOATN. HANDSHAKING. AND 
DATA WINDOW TEST BETWEEN THE I'D 
AND MAIN MICROS. 

NOlfc: CAN ALSO BE CAUSED Oi THE 

SERIAL BUS .SHIN { SHIFT IN) 
STUCK ASSERTED. 

ERROR IN I/O CONTROL REGISTER TEST 



M39b? 14 



M8'*»^ 
M8»)t>? 



IS 



G4 



SVC.Ml R OURCfc f ILL 
CZTSHD.jM i 06-APR-84 

18!%: 

18V-* 
1860 
166?. 
186? 
18t>5 

186S 
1866 

186 7 
1868 
186? 

18 ;o 

lea 

187? 
187? 
1874 
167S 

18 7* 

187 7 
1878 
1879 
1830 
1881 
:88? 
1385 
1884 
1885 
1886 
138 7 
1868 
186'3 
1890 
1591 

ia i v 

.1895 
1694 
1695 
1896 
189/ 
1896 

190 j 

1 ' *" ! 

190? 

1<»03 

1904 

190 9 

1906 

190/ 

190? 

1909 

J ° 1 

2.9*1 

191? 



MACUi 
08:49 



30 ( 1046) 



06 -APR -84 
M$CNVOP? 



10? 
103 

104 



111 



08 j SI PAGE 4/ 
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115 



116 



117 



1?0 



121 



IOTSM 
101 5M 

IOTSM 



10S 


IOTSM 


106 


IOTSM 


107 


IOTSM 


110 


IOTSM 



CATSM 



112 


CATSM 


113 


CATSM 


114 


CATSM 



CATSM 



CATSM 



CATSM 



PETSM 



PETSM 



FAILURE O r FRAML COUNTER TEST 

FAILURE OF I/O SILO NON-PARITY ERROR 
DATA TEST OR THE WRITE FLAG. 

FAILURE OF I/O SILO PARITY ERROR 
TEST OR DATA LATE TEST. 

FAILURE OF SHIFT LOOP WITH ZEROES. 

FAILURE OF SHIFT LOOP WITH ONES. 

FAILURE OF SHIFT LENGTH MUX. 

FAILURE TO RECEIVE CORRECT OPCODE 
FROM TS11 WHEN WE SENT DATA OVER 
THE SERIAL BUS. 



FAILURE OF 1 KHZ CLOCK TEST. 
TSTS TAC SYNC FLOP AND ATTN. TOO. 



LIGHT REGISTEP CHANGED WHEN MOTION 
REGISTER WAS CLEARED. 

FWD OR MVG BITS WRONG AFTER 1 TICK 
OF SIMULATED COMMAND AND T PCH PULSES. 

FAILURE OF SIMULATED CAPSTAN 
SPEED TEST, THE CAPSTAN SPEED 
COUNTER WAS OUT OF RANGE WHEN 
TAPE MOTION AT SPEED WAS 
SIMULATED. 

FAILURE OF SIMULATED SLOW CAPSTAN 
TEST. SPEEO COLTER DID NOT LATCH 
UP WITH MAX COUNT WHEN SLOW TACH 
TICKS WERE SIMULATED. 

FAILURE OF SIMULATED CAPSTAN DfcCEL 
TEST. COUNTER NOT ZERO FOR FORWARD 
OR 377 FOR REVERSE WHILE DECELERATING 
OR MVG BIT NOT 1. 

FAILURE OF MOVING FLOP TO GO TO ZERO 
AFTER STOPPING (DIRECTION REVERSAL 
FOR ONE TACH TICK). 

FAILURE OF WRITE BOARD TO TURN ON 
AND EMPTY THE SILO, OR DATA LATE 
BIT OOESN' T WORK. 

► AIlURfr OF WRITE BOARD TU EMPTi 
SILO AT CORRECT SPEED. 



SEQ 004! 



M8966 

M6966 
M8963 



15 
16 



M8966 17 



M8965 20 



M8965 22 

M8965 4 7 
TSU 

MOTHER BD 
SBUS CABLE 

G159 2 

CBUS CABLE 
M8963 



G159 



3,4 



G159 3,4 
G159 3,4 



G159 



G159 



15159 



M89?9 
M8 V >66 



3, 4 



3»4 



3,4 



23 



M89?9 ?3 



H4 



SVC. Mi 11 

ezTSHi\r 

1915 
1^1 * 
l^.'. c * 
191b 
W? 
1914S 
1^1 w 

1*20 
19 J 1 

:9.v.~' 
i Q 2^ 

19.M 

i <».'■*'. 

19.' * 
1928 
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124 



125 



126 



127 



PETSM 



PETSM 



PETSM 



PETSM 



FORMATTER FLAG DOESN'T WORK ON 'iHE 
M8922. 

FORMATTER SILO FILLING AND DATA 
ERROR 



PEAK SHIFT TEST ERROR 



FORMATTER TABLE LOOKUP ROM CHECKSUM 
TEST ERROR 





SEQ 0046 


MG922 


24 


M8922 
M8923 
M8924 


24 


M8922 
M8923 
M8924 


25 


M8922 
M8923 
M8924 


26 



PROGRAM Hi AflfcR AND TABLES 
C7U;hD.PU 06-APR-84 06:49 

1929 
19 30 
19M 
1932 
19?-. 002000 

1 C *M 002000 
19. T ,5 

1^6 

i^.v," 

19 5 ft 

1950 

19*0 

194 L 002000 

3 9*? 

194* 

1 944 002000 

194 S 002000 

1946 002000 103 

194 7 002001 132 

1946 002002 124 

1949 002003 123 

1950 002004 110 

1951 002C05 000 

1952 002006 OOC 

1953 00200 7 000 

1954 002010 

19bS 002010 104 

1956 00201.'. 

195 ■ 002011 060 

1958 0O2012 

195<-» 002012 000001 

1960 0O2C14 

1961 < i2 20 14 005000 

1962 002016 

19**25 ^.02016 025266 

1964 00 202 O 

1^6^ 002020 025340 

196*) 002022 

19tw OO2022 002174 

19^5 00 1 '024 

1969 002024 002202 

19 70 VOtiO,* 

1971 OQ2026 026746 

1972 0O2030 

1973 C\K>o*,Q 000000 
19/4 002032 

1975 00 ^ 3 2 000000 

Vitt. OO2034 

197/ OO2034 000001 

1978 002036 

3 9/9 02)2036 OOOOOO 

1980 0020-10 

3 931 002040 002124 

l'"»H ■' 0. 1204 2 

19* 5 ( '02042 000340 

rW 002044 
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.TITLE PROGRAM HEADER AND TABLES 
.SBTTL PROGRAM HEADER 

.tNABL ABS.AMA 
2000 

BGNMOD 



; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
I THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



SEQ 004 7 



POINTER BGNRPT.BGNSW.BGNSFT.BGNAU.BGNDU.BGNSETUP 



HEADER CZTSH,0,0 # 5000 # 1.0INTPRI 
LSNAHbii jDIAGNOSTIC NAME 



l.SPEV: 
LiDEPO 
I SUNIT 
LSTIML 
L*HPCP 
I 5SPCP 
L$HPTP 
L*SPTP 
LSLADP 
L$STA: 
LICO: : 
LIUTrP 
L $APT ; 
I IOTP: 
I IPRIO 
l.lkNVl 



REVISION LEVEL 



NUMBER OF UNITS 
j LONGEST TEST TIME 
jPOINTEH TO h.W. QUFS. 
» POINTER TO 5.W. QUES, 
jPTR. TO DEK, H.U. PTABLE 
jPTR. TO S.U'. PTABLE 
jOI AG. END ADDRESS 
jRESERVED FOR APT STATS 

jDIAGNOSTIC T>PL 

jAPT EXPANSION 

;PTR. TO DISPATCH \ ABLE 

{01 AGNOSTIC RUN PRIORI TY 

i FLAGS DESCRIBE HOW IT WAS Shi UP 



.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.B>TE 

.BYTE 

.BYTE 


/c/ 

/!/ 
/J/ 

/5/ 
/H/ 








.ASCII 


/D/ 


.ASCII 


/o/ 


.WORD 


T$PTHV 


.WORD 


5000 


.WORD 


L SHARD 


.WORD 


L $ SOF T 


.WORD 


L*HW 


.WORD 


L$SW 


.WORD 


LtLAST 


.WORD 





. WORD 





.WORD 


1 


.WORD 





.WORD 


t SDISPA 


.WORD 


0INTPRI 



J4 



K.N.,NAM HEADER AND TABLES 

C; 'jHO.PU. 06 -APR -64 06:49 



MACY11 30(1046:) 06 -APR -84 08}5l PAGE 50 
PROGRAM HEADER 



i ^*»s 


0020-14 


000000 


'.■:S6 


00204'-. 




i9t*7 


002'.' \b 


000000 


19 38 


002050 




1989 


oo2o:>o 


003 


1 99* 


00201H 


005 


I-* 1 ? 1 


0C?C52 




1^2 


002052 


CO 0000 


1993 


002054 


oooooe 


1991 


002 056 




199 r > 


002C56 


ccoooo 


1996 


Ox) 2060 




1997 


OX- 060 


002 <64 


199,3 


0^2062 




1999 


0020^2 


016150 


2000 


(020*- 4 




2001 


00 2 06 4 


000000 


2002 


002<:t-6 




2005 


0C:0oo 


OOOuOO 


2004 


0220 70 




2005 


0«i :070 


021770 


2006 


Of 120 72 




2007 


002 j /2 


Ocl/lo 


2008 


0020 -'<; 




2009 


002074 


oooooo 


2)10 


00207-;. 




2211 


oo;o/.'. 


002136 


2^ ! 2 


002100 




20 ii 


r'i.M.02 


104035 


M14 


i ■ . 2 ' ■' • 2 




..,,13 


t\'«h'j,j 


OOOOOO 


2010 


002104 




p:.\: 


U:2104 


017704 


2018 


002106 




2019 


002106 


02.1654 


2020 


C02U0 




2021 


002110 


021232 


2022 


002112 




202* 


002112 


017676 


2024 


002114 




2025 


002114 


OOOOOO 


2026 


002116 




2027 


002116 


cooooo 


2028 


002120 




2029 


002120 


oooooo 


2030 







L.»EXPls : 
LiMREV; • 

LSEFi : 

L$SPC: 

L*DEVP 
l.$REPP 

L$EXP4 

L$EXP5 

L*AUT 

L$DUT 

I *LUN 

LtDESP 

*.*LOAD 

L$ETP 

L»TCP 

LtCCP 

L $ACP 

LSPRT 

l.JTtST 

LSDLY: 

L»HIME 



I EXPANSION WORD 
jSVC REV AND EDIT « 

jDIAG. EVENT FLAGS 



j POINTER TO DEVICE TYPE LIST 
jPTR, TO REPORT CODE 



jPTR. TO ADD UNIT CODE 

jPTR. TO DROP UNIT CODE 

iLUN FOR EXERCISERS TO FILL 

{POINTER TO DIAG. DESCRIPTION 

(GENERATE SPECIAL AUTOLOAD EMT 

jPOINTER TO ERRTBL 

jPTR, TO INIT CODE 

;PTR. TO CLEAN-UP CODE 

il-'TR. TO AL'TU CODE 

»RTR. VO PROTECT TABLE 

l TEST NUMBFR 

j DELAY COUNT 

iPTR, TQ HIGH MEM 





5EQ 0048 


.WORD 





.WORD 





.BYTE 

.BYTE 


C*REtfISI 
C$F.DIT 


.WORD 

. WORD 







.WORD 





.WORD 


LtDVTiP 


.WORD 


L$RPT 


.WORD 





.WORD 





.WORD 


L*AU 


.WORD 


LSDU 


.WORD 





.WORD 


LSDESC 


EMT 


EtLOAD 


.WORD 





.WORD 


l.SINIT 


. WORD 


LtCl.EAW 


.WORD 


LSAUTO 


.WORD 


L5PR0T 


.WORD 





.WORD 


n 


.WORD 






I<4 



PROGRAM HEADER AND TABt ES 
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MACYli 



30(1046) 
DISPATCH 



06 -APR -84 

TABLE 
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SEQ 0C49 



20? 1 








2032 








203? 








2034 








2035 








2036 








203? 








2038 


0023.22 






2039 


002122 


000005 




2040 


002124 






2041 


0C2124 


022064 




2042 


002126 


02^452 




2043 


002130 


024126 




2044 


002132 


024272 




2045 


002134 


024424 




2046 








204? 








2048 








2049 








2050 








2051 








2052 








205? 








2054 


002136 






2055 


002136 






2056 


0C21?6 


040504 


040524 


2057 


002144 


046105 


040511 


2058 


002152 


044514 


054524 


2059 


002160 


051505 


000124 


2060 








2061 


002164 






2062 


002 J 64 






20*>3 


002164 


0_>1524 


03046?. 


2064 




002172 





051040 
044502 
052040 



000 



.SBTTL DISPATCH TAB--E 



} * 



l THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
I IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST, 



DISPATCH 5 
LSDISPATCH:; 



.WORD 



.UORO 


Tl 


.WORD 


T2 


.WORD 


T3 


.WORD 


T/ 


.WORD 


T5 



.SBTTL DESCRIPTIVE TEXT 
2 LINES OF TEXT PRINTED TO THE UPERATOR TO IDENTIFY THE DIAGNOSTIC AND THE DEVI 



LSDESCi ; 



DESCRIPT 



<DATA RELIABILITY TEST* 



DEVTYP 
LtDVTYP: : 



< TS11> 



.ASCIZ /DATA RE 



EVEN 



-ISC 17 /TS11/ 
EVEN 



PROGRAM HfADbR ANO TABLES MACY11 30(1046) 
CZTSHD.PU 06-APR-ii4 08:49 DEFAULT 



2065 






2066 






206 7 






2068 






206^ 






2070 






20 V 1 






2072 






2073 


002172 




2074 


002172 


000002 


2075 


002174 




2076 


002174 




2077 






2078 






2079 


002174 


1 72522 


2080 


002176 


000224 


2081 






2082 


002200 




2063 


002200 





06 -APR -84 
HARDWARE P 



08:51 

TABLE 



I. 4 

PAGE 52 



SEQ 0050 



SBTTL DEFAULT HARDWARE P- TABLE 



; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OK 
j THE TEST DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 



BGNHW DFPTBL 



L*i-!y : : 

DFPTBL 



172522 
224 



L 10000 { 



.WORD LIOOOO-L 



{TSSR ADDRESS. 
i VECTOR ADDRESS, 



ENDHW 



PROGRAM HtADER AND TABLES 
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SEQ 0051 



2084 






2085 






208b 






2087 






2088 






2089 






2090 






2091 


002200 




2092 


002200 


000043 


2093 


002202 




2094 


002202 




2095 






2096 


002202 


001 


2097 


002203 


000 


2098 


002204 


000 


2099 


002205 


000 


2100 


002206 


001 


2101 


002207 


000 


2102 


002210 


000 


2103 


002211 


000 


2104 


002212 


000 


2105 


002213 


000 


2106 


002214 


000 


2107 


002215 


000 


2108 


002216 


000040 



.SBTTL SOFTWARE P-TABLE 



t THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



BGNSW SFPTBL 



L>SW: ; 






SFPTBL: 


: 




CLRFlG: 


: .BYTE 


1 


RRANV: : 


.BYTE 





HAE: : 


.BYTE 





ERCVER: 


: .BYTE 





BADT5W: 


: .BYTE 


1 




.BYTE 





DINT:: 


.BYTE 





IRFC: : 


.BYTE 





CHGFLG: 


: .BYTE 







.BYTE 





PIRE: ; 


.BYTE 







.BYTE 





CHAR; j 


CH.EAI 





.WORD L 10001 -L 



: CLEAR COUNTERS FLAG. 

{RESET RANDOM VARIABLES EACH PASS FLAG. 

{HALT AFTER EACH COMMAND FLAG. 

{ENABLE RECOVERABLE ERROR PRINTS FLAG. 

{BAD TAPE SWITCH TO REWRITE ON SAME SPOT 6 DETEC 

. spare 

'{DISABLE INTERRUPTS FLAG. 

{INHIBIT ERROR RECOVERY FLAG. 

{CHANGE CMD SEQ TABLE FLAG. 

{SPARE. 

{INHIBIT RESIDUAL FRAMECGUNT ERROR REPORT FLAG. 

* SPARE 

^CHARACTERISTICS CODE (DEFAULT * 40). 



N4 



PROGRAM HFADER AND TABLES 
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SOFTWARE P- TABLE 



2109 


002220 


000015 


2110 


002222 


000001 


21.11 


002224 


000001 


2112 


002226 


000007 


2113 


002230 


000004 


2114 


002232 


004000 


2115 


002234 


076400 


2116 


002236 


000007 


2117 


002240 


000003 


2118 


002242 


004000 


2119 


002244 


076400 


2120 


002246 


000007 


2121 


002250 


000002 


2122 


002252 


004000 


2123 


002254 


076400 


2124 


002256 


000007 


2125 


002260 


000015 


2126 


002262 


000001 


2127 


002264 


000001 


2128 


002266 


000007 


2129 


002270 


000033 


2130 


002272 


004000 


2131 


002274 


076400 


2132 


002276 


000007 


2133 


002300 


000033 


2134 


002302 


004000 


2L35 


002304 


076400 


2136 


0C2306 


000007 


213V 






2138 


002310 




2139 


002310 




2140 






2141 


002310 





CMDD:: .WORD 


13. 


.WORD 


1 


.WORD 


1 


. WORD 


RANP 


.WORD 


4 


.WORD 


DATCNT 


.WORD 


32000. 


.WORD 


RANP 


.WORD 


3 


.WORD 


DATCNT 


.WORD 


32000. 


.WORD 


RANP 


.WORD 


2 


.WORD 


DATCNT 


.WORD 


32000. 


.WORD 


RANP 


.WORD 


13. 


.WORD 


1 


.WORD 


1 


.WORD 


RANP 


.WORD 


27. 


. WORD 


DATCNl 


.WORD 


32000. 


.WORD 


RANP 


.WORD 


27. 


.WORD 


DATCNT 


.WORD 


32000. 


.WORD 


RANP 


ENDSW 




1.10001: 





SEU 0052 



{COMMAND 2 (DEFAULT * REWIND). 

{BYTE COUNT 

{NUMBER OF OPERATIONS 

{PATTERN 

{COMMAND 3 (DEFAULT * WRITE) 

{BYTE COUNT (DEFAULT - MAX BUFFER 
NUMBER OF OPERATIONS (DEFAULT = 
PATTERN (DEFAULT - RANDOM). 
COMMAND 4 (DEFAULT - READ REV). 
BYTE COUNT (DEFAULT * MAX BUFFER 
NUMBER OF OPERATIONS (DEFAULT - 

{PATTERN (DEFAULT * RANDOM). 

{COMMAND 5 (DEFAULT - READ FWD). 

{BYTE COUNT (DEFAULT - MAX BJFFER 
NUMBER OF OPERATIONS (DEFAULT « 
PATTERN (DEFAULT « RANDOM). 
COMMAND 6 (DEFAULT - REWIND). 
BYTE COUNT 

{NUMBER OF OPERATIONS 
PATTERN 

END OF CMD SEQ TABLE CODE (DEF) 
BYTE COUNT (DEFAULT = MAX BUFFER 
NUMBER OF OPERATIONS (DEFAULT - 
PATTERN (DEFAULT » RANDOM). 
END OF CMD SEQ TABLE CODE (DEF) 
BYTE COUNT (DEFAULT = MAX RUFFE R 
NUMBER OF OPERATIONS (DEFAULT = 
PATTERN (DEFAULT * RANDOM). 



SIZE). 
32000). 



SIZE). 
32,000). 



SIZE). 
32,000). 



OR CMD 
SIZE ) 

32000 ) 

OK CMD 

SIZE) 

32000) 



8 



ENPMOD 
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SOFTWARE 



B5 



06 -APR -84 
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SEQ 0053 



0140 




014? 




0144 




014b 




0146 000510 


014? 




0148 




0149 




0150 




^151 




0150 




015? 000 


310 


0154 




0155 




0156 




015' 


100000 


0158 


040000 


0159 


020000 


0160 


OlOOOO 


0161 


004000 


0160 


002000 


0163 


OOIOOO 


0164 


000400 


0165 


000200 


0166 


000100 


2167 


000040 


0168 


000020 


0169 


0000 10 


2170 


0»X>004 


2171 


000000 


017^ 


000001 


2173 




01?4 


001000 


0175 


000400 


01?6 


000200 


21" 


000 100 


2178 


000040 


2179 


000020 


0180 


000010 


0181 


000004 


0182 


0OOO02 


0183 


000001 


0184 




2185 




2186 




218/ 




0188 


000040 


0189 


00003 7 


0190 


000036 


0191 


000035 


0190 


000034 


0195 




0194 




0195 




1 96 




2197 


000340 



.TITLE GLOBAL AREAS 

.SBTTL GLOBAL EQUATES SECTION 

BGNMOD 

j THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
i ARE USED IN MORE THAN ONE TEST. 
I - • 

EQUALS 



i BIT DIF1NITI0NS 


BIT15-' 


100000 


BIT14-- 


• 40000 


BIT13-- 


• 20000 


BIT12-- 


10000 


BIT11-- 


• 4000 


BIT10*' 


• 2000 


BIT09-- 


• 1000 


BIT08" 


■ 400 


BIT07- 


• 200 


BIT06- 


■ 100 


BIT05- 


• 40 


BIT04- 


• 20 


BIT03-' 


■ 10 


BIT02- 


• 4 


BIT01-- 


' 2 


BITOO* 


' 1 


BIT9-- 


BIT09 


Bl*8-- 


BIT08 


BIT7-- 


BIT07 


BIT6-- 


BU06 


BIT5-- 


BIT05 


BIT4-- 


BIT04 


BIT3- 


BIT05 


BIT2-- 


BITOO 


BIT1-- 


BIT01 


BITO-- 


BITOO 



I EVENT Fi AG DM INI T IONS 
i tFSOsfFl? RESERVED FOR 

i 



SUPERVISOR TQ PROGRAM COMMUNICATION 



V. 
31. 
50. 
09. 
08 , 



EF .START ■. 

If .RfS TART .- 

EF .CON! INUE-- 

EF.NEU-- 

EF.PWR-- 

1 

, PRIORI Tt lEVtL HEUNITIUNU 

PRIO?*» 340 



I START COMMAND WAS ISSUED 

i RESTART COMMAND WAS ISSUED 

l CONTINUE COMMAND WAS ISSUtl? 

i A NFU PASS HAS BEtN STARTf.? 

I A POWER -FAIL^OWkR 'UP OCCURRED 



cv> 



ULllBAl ARIAS 


MACY U 5CK 104b) 


CZTSHD.PU 


06 APR 84 03i49 


21^8 


000300 


21*9 


000240 


2200 


000200 


2201 


000140 


2202 


000100 


2203 


000040 


2204 


000000 


2205 




220b 




2207 




220s 


000004 


2209 


000010 


2210 


000020 


2211 


000040 


2212 


000100 


2215 


000200 


2214 


000400 


2215 


001000 


2216 


002000 


2217 


004000 


2218 


010000 


2219 


020000 


2220 


040000 


2221 


100000 


2222 




2223 




2224 




2225 




222* 




2227 




2228 




2229 




2230 




2231 




2232 




2233 




2234 




2235 




2236 




223 7 


100000 


2.2 TS 


040000 


2239 


020000 


2240 


01 0000 


2241 


004000 


2242 


002000 


224 3 


001000 


2244 


000400 


2245 


000200 


2246 


C00100 


224.^ 


\77nr 


2240 


177761 
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GLOBAL EQUATES SECTION 



SEQ 0054 



PRI06-- 300 
PRIO^»- 240 
PRI04-- 200 
PRI03-- 140 
PRI02- 100 
PRI01-- 40 
PRI00-- 

jOPERATOR FLAG BITS 



I 

EVl. ■ 

LOT- 

ADR- 

IDU- 

ISR- 

UAM- 

BOE- 

PNT- 

PRI- 

IXL- 

IBE" 

IER- 

LOE- 

HOE- 



4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 



REGISTER USAGE. 

RO - PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR 

Rl - COMMAND SEQUENCE TABLE POINTER, 

R2 ■ GENERAL PURPOSE REGISTER. 

R3 - GENERAL PURPOSE REGISTER. 

R4 - GENERAL PURPOSE REGISTER. 

R5 - CURRENT LOGICAL DEVICE NUMBER x 2. 

R6 - STACK POINTER. 

R7 - PROGRAM COLTER. 

iTHE FOLLOWING ARE BIT OEFJNXTIQNS FOR THE TS^R REGISTERS. 



TS.SC-- 

TS.UPE- 
TS.SPE ■» 
TS.RMR- 
TS.NXM- 
TS.N6A- 
TS.A17- 
TS.A16- 
TS.SSR- 

TS.ori - 
7SC.KC 

tsc.tcc 



i 00000 

•40000 

-20000 

- 10000 

•4000 

-2000 

-1000 

-400 

•200 

•100 

•-1/771," 

**l?V70l 



t SPECIAL CONDITION 3IT, 

»UNI9US PARI" \ ERROR 

jSERIAL BUS PARITY ERROR. 

AGISTER MODIFICATION REFUSED. 

jNON-EXISTENT MEMORY. 

jNCED BUFFER ADORE SS, 

iBUS ADDRESS BIT 17. 

I BUS ADDRESS BIT 16. 

I UNIT READ^ BIT, 

i OFF LINE. 

;f KTAl CLASS COOt MASK. 

I TERMINATION CLASS CODE MASK. 



[V- 



G» ORAt ARt AS 


NACUl SOI 1 04t> 1 


LZTSHO.Pll 
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224** 




2250 




0251 


100000 


2252 


040000 


2553 


020000 


2554 


010000 


2255 


004000 


t . ?56 


00*1000 


2257 




2258 


002000 


225<* 


001000 


2260 


000400 


2261 


000200 


2262 


000100 


2263 


000100 


2264 




2265 


000040 


2266 


000040 


226? 




2268 




2269 


000020 


2270 


000020 


2271 


000010 


2272 


000004 


2273 


000002 


2274 


000001 


2275 




2276 




2277 




2278 


000200 


2279 


000040 


2280 


000020 


2281 


000040 


2282 




2283 




2284 




2285 




2286 


000004 


2287 


000C06 


2288 


000010 


2289 


000012 


2290 


000014 


2291 




2292 




2293 




2294 


100000 


2295 


040000 


2296 


020000 


229? 


010000 


2298 


000100 


2299 


000002 


2300 


000001 


2301 




2302 




2305 




2304 


100000 



Ob APR 



4 
LOU 



AL* EQUATE 



PAGE 5? 

SECTION 



5EQ 0055 



jTHF FOLLOWING ARE BIT DEFINITIONS TOR THE COMMAND WORD 



ACK.C--1OCO0O 
CVC.C- -40000 
0PP.C--2000V 
SW8.C- -10000 
MOD. C3- -4000 
BRF.C--4000 

MOD. C2- -2000 
HOD. CI ■<- 1000 
MOD. CO --400 
IE, C- -200 
FMT.C1--100 
VFY.C--100 

FMT.C0--40 
JMP.C--40 



CM0.C4--20 

DLY.C--20 

CM0.C3--10 

CMD.C2--4 

CM0.C1--2 

CMD.C0--1 



ACKNOWLEDGE BIT 

CLEAR VOLUME CHECK. 

OPPOSITE BIT 

SWAP BYTE BIT 

MODE BIT 3 

BYTE/RECORD/FILE COUNT FLAG BIT. NOT USED 

BY TS04 BUT USED INTERNALLY BY THIS PROGRAM ONL 

MODE BIT 2 

MODE BIT 1 

MODE BIT 

INTERRUPT ENABLE 

FORMAT BIT 1 

WRITE VERIFY FLAG BIT. INTERNAL USE ONL r . 

NOT USED BY TS04. 

FORMAT BI'i 0. 

JUMP BIT- TO DIRECT THIS PROGRAM TO JUMP TO 

A CERTAIN LOCATION IN THE COMMAND SEQUENCE 

TABLE. INTERNAL USE ONLY. 

COMMANO BIT 4 

INSERT DELAY. INTERNAL USE ONLY, 

COMMAND BIT 3 

COMMAND BIT 2 

COMMANO BIT 1 

COMMANO BIT 



I 



BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 



CH.ESS--200 
CH.EAI--40 
CH.ERI--20 
DFTSCH--CH.EAI 

j THE FOLLOWING INDICPTES 
I IN THE MESSAGE BUFFER. 



j ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EO 
jENABLE ATTENTION INTERRUPTS, 
j ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
jDEFAULT CHARACTERISTICS CODE. 

THE RELATIVE POSITIONS OF THE STATUS WORDS 



iRFSIDUAL FMME COUNT. 
lEXT STATUS REG 
lEXV STATUS REG 1 
jEXT STATUS REG 2 
jEXT STATUS REG 3 

jTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0. 

j TAPE MARK. 

jRECORD LENGTH SHORT. 

{LOGICAL EOT. 

i RECORD LENGTH LONG. 

»0N LINE BIT. 

jBOT BIT. 

•EOT BIT. 

I THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2. 

X2.0PM»" 100000 {OPERATION IN PROGRESS. TAPE MOVING 



MS. RFC- 


•4 


MS. XSO- 


•6 


MS.XS1- 


•10 


MS.XS2- 


-12 


Ni.X$3* 


■ 14 


I THE FOLLOWING 


XO.TMK- 


•100000 


XO.RLS- 


-40000 


X0.1.ET- 


•20000 


XO.RLL' 


-10000 


XO.ONL* 


•100 


XO.BOT« 


•2 


XO.EOT* 


•1 



E5 



GLOBAL ARt'AS 
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CZTSHO.PU 


06-APR-84 08:49 


2305 




2306 




2307 




2308 


000010 


2309 


157400 


2310 




23 li 




2312 




2313 




23?.4 


000000 


2315 


000002 


2316 


000004 


2317 


000006 


2318 




2310 




2320 




2321 


000340 


2322 


002452 


2323 


000010 


2324 




2325 


000016 


2326 


003334 


2327 


000020 


2328 


004000 


232^ 




2330 




2331 


000550 


2332 


177740 


2333 


00000 7 


2334 


000020 


2335 


000020 


2336 


153624 


2337 


032561 


2338 


177774 


2X39 


177740 


2340 




2341 




2342 




234 3 




2344 


100013 


2345 




2346 




2347 


104001 


2348 




2349 




2350 


104401 


2351 




2352 




2353 


104005 


2354 




2355 




2356 


104105 


2357 




2358 




2 359 


104010 


2360 
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GLOBAL EQUATES SECTION 



SEQ 0056 



{THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 



X3.DCK 
X3.RNY 



10 
157400 



I DENSITY CHECK. 

I CAPSTAN RUNAWAY UDIAG ERROR CO n E 



j THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
{PACKET ENTRIES, 



CP.CMO--0 
CP.ADL--2 
Cr.ADH-«4 
CP.CNT«»6 



jCMDPKT»0--TS04 COMMAND. 
jCMGPKT»2- -BUFFER ADDRESS LOW. 
;CMDPKT»C--BLTFER ADDRESS HIGH. 
jCKDPKT*6*-BYTE/FILE/REC0RD COUNT 



J 



MISCELLANEOUS DEFINITIONS. 



INTPRi--PRI07 

TS8A--TSDB 

SCHCN1--10 

MSGCNT--16 
DIABLK--DATAWT 
DIACNT--20 
DATCNT--2040. 



•CNTEND-CNTBGN 
177740 



CNTLEN' 

RNOPSC* 

RANP--7 

RRECL--16. 

URECL--16. 

RAN6C-- 153624 

RANSC-- 32561 

NINUSE--17- /74 

NCMO.C-»ACK.C!CVC.C!OPP 



{PRIORITY TO BE USED IN INTERRUPT STATE, 
{DATA BUFFER ADDRESS REGISTER. 
; ARBITRARY BYTE LENGTH FOR CHARACTERISTIC 
{BUFFER LENGTH. (EVEN ♦) 

{MESSAGE BUFFER LENGTH IN BYTES. CE^'EN 4) 
iWRITE BUFFER ALSO USED FOR DIAG CMD. 
{DIAGNOSTIC COMMAND BUFFER EXTENT. 
{MAXIMUM RECORD LENGTH IN BYTES. 

{THIS COUNT SHOULD BE A MULTIPLE OF 256 TO INSUR 
{PROPER READ/WRITE BUFFER ALLOCATION BY THE SUPE 
{LENGTH OT STATISTICAL COUNTER AREA, 
{RANDOM * OF OPERATIONS MASK. 
{CODE TO r ELECT RANDOM PATTERN. 
{READ REfOVERY ATTEMPT LIMIT. 
{WRITE RECOVERY ATTEMPT LIMIT. 

{CONSTANT USED TO RESET RANOOM * GENERATOR BASE. 
{CONSTANT USED TO RESET RANOOM SAVE LOCATION. 
jNOT IN USE CODE FOR DEVICE STATE TABLE. 
C ! SWB, C ! MOD. C3 !M00. C2 ! MOD. CI JMOD, CO » IE. C!FMT, CI !FMT. CO 
{NOT "COMMAND" BITS. 



{THE FOLLOWING DEFINES THE COMMAND WORD W EACH TS04 COMMAND, 

DRI" ACK. C ! CMD. C3! CMD. CI! CMD, CO 

{DRIVE INIT, 



RDF « ■ ACK . C ! BRF , C ! CMD , CO 
RDR" 



{READ FORWARD 



WRT 



ACK, C! BRF, C .'MOD. CO! CMD. CO 

{READ REVERSE 

A0< . C I BRF , C ! CMD , CO ! CMD , C2 

{WRITE COMMAND 



WT V - » ACK . C ! BRF . C J VF Y . C ! CMD , CO ! CMD . C2 

{WRITE VERIFi 



Mf-> 



ACK.C!BRF.C!CMD,C3 



{SPACE RECORD FORWARD 



F5 



GLOBAl ARfrtS 


MAC^i 11 


CZTSHD.P11 


Ob-APR-8 


2361 




2362 


104410 


256? 




2364 




2365 


105401 


2366 




2367 




2368 


125401 


2369 




2370 




2371 


105001 


2372 




237? 




2374 


125001 


2575 




2376 




2377 


105005 


2376 




2379 




2360 


102010 


2381 




2382 




2383 


100012 


2384 




2385 




2386 


100011 


2387 
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>8:49 GLOBAL EQUATES SECTION 



SEQ 0057 



SRR«» 
RNR«- 
RNF-- 
RPF-- 
RPR-- 
WRR-- 
RWD-« 
MBR-» 
WTM<- 



ACK . C ! BRF , C ♦ MOD . CO » CMD . C3 

I SPACE RECORD REVERSE 

ACK, C ! BRF. C! MOD. CI! MOD. CO! CMC. CO 

iREAD REV RETRYl - REREAD NEXT REVERSE, IE, SPACE FWD, READ REVE 

ACK.C!BRF.C!0PP.C!M0D.C1!M0D.C0!CMD.C0 

j READ REV RETRY2 - REREAD NEXT FORWARD, IE. READ FORWARD, SPACE R 

ACK.C!BRF.C!M0D,C1!CMD.C0 

{READ FWD RETRY1 - REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, R 

ACK.C!BRF.C!OPP.C!MOD.C1.'CMD.CO 

iREAD FWD RETRY2 - REREAD PREVIOUS REVERSE, IE. READ REVERSE. SP 

ACK,C!M0D.C1!BRF.C!CMD,C2!CMD.C0 

{WRITE RETRY 



ACK,C!M0D.C2!CMD.C3 



ACK.C!CMD.C3!CMD.C1 



ACK.CICMD.C3JCMD.C0 



{REWIND COMMAND 



{MESSAGE BUFFER RELEASE 



j WRITE TAPE MARK. 



G5 



GLOBAL ARFAS 


MACU1 


CZTSHD.PU 


06 -APR -8- 


2388 




2389 


101011 


2390 




2391 




2392 


105010 


2?9o 




2394 




2395 


105410 


2396 




2397 




2398 


100017 


2399 




2400 




2401 


100411 


2402 




2403 




2404 


100412 


2405 




2406 




2407 


101012 


2408 




2409 




2410 


140004 


2411 




2412 


100006 


2413 




2414 


000040 


2415 




2^1o 


000020 


24 17 




2418 


17777? 
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)8i49 GLOBAL EQUATES SECTION 



SEQ 0058 



WTR-- 

SFF-«- 

SFR«- 

GES^ 

ERS»» 

UNL"* 

CLN-- 

SCH-» 
DIA-- 
JMP»- 

DLY»» 
END" 



ACK . C ! MOD . C 1 ! CMO . C3 J CMD . CO 

{WRITE TAPE MARK RETRY. 

ACK.C!BRF,C!M0D,C1!CMD.C3 

{SPACE FILE FORWARD 

ACK,C!BRF.C!MOD.CO!MOD.C1!CMO.C3 

,SPACE FILE REVERSE 

ACK.C!CMD.C0!CMD.C1!CMD.C2!CMD.C3 

{GET EXTENDED STATUS 

ACK . C ! MOO . CO J CMD . C3 ! CMD , CO 

; ERASE 3 INCKES OF TAPE 

ACK . C ! MOD . CO ! CMD . C3 ! CMD . C 1 

{UNLOAD COMMAND 

ACK, C 'MOD. CI ! CMD, C3» CMD. CI 

{ERASE TAPE. 

ACK.CJCVCCJCMD.C2 iSET DEVICE CHARACTERISTICS 

ACK.CtCMD,C2!CMD.Ci {DIAGNOSTICS. 

JMP.C j JUMP TO "N'TH COMMAND 

DLY.C i DELAY "N" MS. 

177777 jEND OF COMMAND SEQUENCES 



-'5 



GLOBAL 


AM AS 


MMCU1 30C 104tO 


CZTSHD. 


PU 06 -APR -84 08;49 


2419 






2420 






2421 






242,? 






2423 






2424 






2425 






2426 






2427 






2428 






2429 






2430 




002310 


2431 


002310 


000000 


2432 


002312 


000000 


2433 


002314 


000000 


24 34 


002316 


000000 


2435 






24 36 






2437 






2438 






243^ 




002320 


2440 


002320 


100017 


2441 






2442 






2445 






2444 






2445 




002324 


2446 


002324 


100012 


244 7 






2446 






2449 






2450 






2451 






2452 




002330 


2453 


0C2330 


102010 


2454 


002332 


000001 


2455 






2456 






245 7 






2458 






2459 


002334 


000007 


2460 






2461 






2462 






2463 






2464 






2465 
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GLOBAL DATA SECTION 



SEQ 0059 



.SDTTL GLOBAL DATA SECTION 



♦ *■ 



i THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
i IN MORE THAN ONE TEST. 



j - 



COMMAND PACKET. 

. *3£177774 



CMDPKT: : 







{MUST BE ON MOD 4 BOUNDRY. 

(1ST WORD IS TS04 COMMAND. 

j 2ND WORD IS THE BUFFER LOW ADDRESS. 

{3RD WORD IS THE BUFFER HIGH ADDRESS. 

|4TH WORD IS THE BYTE/RECORD/FILE COUNT. 



GSCPKji .WORD 



GET STATUS COMMAND PACKET. 

{MUST BE ON MOD 4 BOUNDRY. 



. *3£177774 
GES 



BRCPKs* .WORD 



MESSAGE BUFFER RELEASE COMMAND PACKET. 

{MUST BE ON MOD 4 BOUNDRY. 



.♦36177774 
MBR 



RWCPKj: .WORD 
.WORD 



REWIND COMMAND PACKET (USED IN ERROR RECOVER> ONLY) 

;MUST BE ON A MODULE 4 BOUNDARY. 



. ♦3&177774 

RWD 

1 



WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 



MSGPKTu .BLKU 7 



{1ST WORD 

}2ND WORD 

j3RD WORD 

{4TH WORD 

{5TH WORD 

{6TH WORD 

|7TH WORD 



MESSAGE TYPE. 

DATA FIELD LENGTH. 

RESIDUAL FRAME COUNT t 

XSTATO 

XSTAT1 

XSTAT2 

XSTAT3 



1.5 



GLOBAl 


MH AS 


MAO 11 30K104tO 


CZTSHD. 


Pll 06-APR-84 08:49 


2466 






246 7 






2468 


002352 


000007 


2469 


002370 


000007 


2470 


002406 


000007 


2471 


002424 


000007 


24 72 






24 75 






24 74 






2475 


002442 


002352 


24 76 


002444 


000000 


24 77 


002446 


000016 


2476 


002450 


000040 


24 79 






2460 






2481 






2482 


002452 


000004 


2483 


002462 


000004 


2484 


002472 


000004 


2485 






2486 






2487 






2488 


002502 


002352 


2489 


002504 


002370 


2490 


002506 


002406 


2491 


002510 


002424 


2492 






2493 






2494 






2495 


0025)2 


006316 


2496 


002514 


006324 


2497 


002516 


006332 


2498 


002520 


006340 


2499 






2500 






2501 






2502 


002522 


000000 


2503 


002524 


000000 


2504 


002526 


000000 


2505 


002530 


OOQOOO 


2506 






250 7 






2508 






2509 






2510 
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GLOBAL DATA SECTION 



SEQ 0060 



MFSSAGE PACKETS. 



MSGPKO 
MSGPK1 
MSGPK2 
MSGPK3 



SCHBK: 



• BLKW 
.BLKW 

• BLKW 
.BLKW 



{MESSAGE PACKET FOR DEVICE 40 

i MESSAGE PACKET FOR DEVICE *1 

j MESSAGE PACKET FOR DEVICE 02 

j MESSAGE PACKET FOR DEVICE 43 



TSDB: 
TSSR: 
TSVCT 

I 



SET CHARACTERISTIC BLOCK, 

MSGPKO ;1ST WORD 

{2ND WORD 

MSGCNT j 3RD WORD 

CH.EAI ; 4TH WORD 

TS04 REGISTER ADDRESSES. 

.BLKW 4 

.BLKW 4 

.BLKW 4 



MSGPKT ADDR LOCSET UP BY EXCUTE ROUT 
MSGPKT ADDR HI. 
MSG BUFFER LENGTH (BYTES) 
CHARACTERISTICS WORDCSET BY SETUP RO 



} TS04 DATA BUFFER ADDRESSES. 
;TS04 STATUS REGISTER ADDRESSES 
;TS04 VECTOR ADDRESSES, 



ADDRESSES OF MESSAGE PACKETS. 



MSGPKA: 



i 



MSGPKO 
MSGPK1 
MSGPK2 
MSGPK3 



{DEVICE 0. 

iDEVICE 1. 

jDEVICE 2. 

{DEVICE 3. 



ADDRESSES OF INTERRUPT HANDLING ROUTINES. 



TS4INT:: TS4IN0 
TS4INI 
TS4IN2 
TS4IN3 



{DEVICE 

{DEVICE 1 

{DEVICE 2 

{DEVICE 3 



{ 



TS04 CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 



TS4CL: 










{DEVICE 

{DEVICE 1 

{DEVICE 2 

{DEVICE 3 



UNIT NUMBERS OF ALL DEVICES BEING TESTEDC 1 -4 ) . 
WHEN DEVICE IS NOT IN USE. IT.S LOCATION WILL 



3. 



R5 WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER X 2* 



J 5 



GLOBAL 


ARFAS 


MAO 11 


30(1046) 


CZTSHD, 


Pll 06-APR-84 


08:49 


2511 


002552 


1/7774 




2512 


002^34 


177774 




2513 


002536 


177774 




2514 


002540 


177774 




2515 


002542 


177777 




2516 








251? 








2516 








2519 








2520 








2521 


002544 


0027 74 




2522 


002546 


00b046 




2525 


002550 


003120 




2524 


002552 


003172 





06-APR-64 08:51 PAGE 63 
GLOBAL DAL* SECTION 



SEQ 0061 



OEVTBL 



.WORD NINUSE 
.WORD NINUSE 



.WORD 
.WORD 
.WORD 



NINUSE 
NINUSE 
END 



BAD TAPE TABLE POINTER: USED BY WRITE RETRY ROUTINE 
"WRTY" TO LOG BAD TAPE SPOTS ON UNITS UNDER TEST 



BTADDR:; RTO 
BT1 
BT2 
BT3 



I<5 



GLOBAL 


AREAS 


MACU1 30C04o 


) 


C2TSHD, 


Pll 06-APR-84 08:49 




2525 








2526 








2527 




002554 




2528 


002554 


000020 




2529 


002614 


000020 




2530 


002654 


000020 




2531 


002714 


000004 




2532 


002724 


000004 




2533 


002734 


000004 




2534 


002744 


000004 




2535 


002754 


000004 




2536 


002764 


000004 




2537 


002774 


000025 




2538 


003046 


000025 




2539 


003120 


000025 




2540 


003172 


000025 




2541 


003244 


000004 




2542 


003254 


000004 




2543 


C03264 


000004 




2544 


003274 


000004 




2545 


003304 


000004 




2546 


003314 


0^0004 




2547 




003324 




2548 


0C3324 


000004 




2549 








2550 








2551 








2552 








2553 








2554 








2555 


003334 


000000 




2556 


003336 


000000 




2557 


003340 


000000 




2558 


003342 


000000 




2559 


003344 


000000 




2560 


003346 


177777 




2561 


003350 


177777 




2562 


003352 


177777 




2563 


003354 


000000 




2564 


003356 


000000 




2565 


003360 


153624 




2566 


003362 


032561 




2567 


003364 


000000 




2568 


003366 


000000 




2569 


003370 


000000 




2570 


003372 


000000 




2571 


003374 


000000 




2572 


003376 


000000 




2573 


003400 


000000 




2574 


QQlAQd 


OOOOQQ 
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GLOBAL DATA SECTION 



SEQ 0062 



COUNTER AREA. 



CNT8GN-, 




WRBC 


: .BLKW 


20 


RRBC 


: .5LKW 


20 


RFBC 


: .BLKW 


20 


WRRECt: .BLKW 


4 


WRUNRtt .BLKW 


4 


RRREC:: .BLKW 


4 


RRUNR:: .BLKW 


4 


RFRECjj .BLKW 


4 


RFUNR:; .BLKW 


4 


BTO: 


.BLKW 


21 


BT1: 


.BLKW 


21 


BT2: 


.BLKW 


21 


BT3: 


.BLKW 


21 


WRTYCTtt .BLKW 


4 


PASCNT:: .BLKW 


4 


SCCNT:: .BLKW 


4 


VFYCNT:: .BLKW 


4 


HRDCNT:: .BLKW 


4 


FTLCNT:; .BLKW 


4 


CNTENO-. 




RECCNT:s .BLKW 


4 



jBYTES WRITTEN. 

{BYTES READ REV. 

{BYTES READ FWD. 

{RECOVERABLE WRITE ERRORS. 

i UNRECOVERABLE WRTTE ERRORS. 

I RECOVERABLE READ REV ERRORS. 

j UNRECOVERABLE READ REV ERRORS. 

j RECOVERABLE READ FWDERRORS. 

{UNRECOVERABLE READ FWD ERRORS, 

{UNIT BAT TAPE SPOTS LOG 

{UNIT 1 BAT TAPE SPOTS 

{UNIT 2 BAT TAPE SPOTS 

{UNIT 3 BAT TAPE SPOTS 

{WRITE RETRY COUNTER 

;i'ASS COUNT. 

{SPECIAL CONDITION COUNT. 

{COUNT OF TS04 DATA COMPARE ERRORS. 

{COUNT OF HARD ERRORS. 

{COUNT OF FATAL ERRORS. 

;END OF STATICUCAL COUNTERS. 

{NUMBER OF RECORDS FROM BOT: CLEARED ON REWIND 

,AND WHEN RESTARTING OR CONTINUING TEST 2. 



LOG 
LOG 
LOG 



THE FOLLOWING ARE THE DEFINITIONS OF VARIABLES 
USED BY THE PROGRAM. 



DATAW1 


' : : , WORD 





i 


DATARDj: .WORD 





J 


NCNT : . 


.WORD 





• 


NCNT1 


: .WCRD 





• 


BRFCN1 


r j; .WORD 





• 


CMDWRC 


):: .WORD 


END 


i 


CMDSA\ 


In .WORD 


END 


• 


PCMDWC 


):: .WORD 


END 


J 


CMDLG 


: .WORD 





J 


LENMSh 


(j: .WORD 





( 


RANft; 


.WORD 


153624 


» 


RANS: 


.WORD 


32561 


• 


TIME1 


: . WORD 





l 


TIME2 


: .WORD 





\ 


JLOOP 


: .WORD 





• 


JLOC: 


.WORD 





l 


PATER* 


4;: .WORD 





i 


CTCC: 


.WORD 





i 


R5SAVE 


1 : : . WORD 





t 


TSiiRtl 


m ,WURU 





\ 



WRITE BUFFER ADDRESS. 

READ BUFFER ADDRESS. 

STORAGE FOR VALUE OF N. 

TEMP STORAGE FOR VALUE OF N. 

STORAGE FOR BPCR VALUE. 

CONTAINS COMMAND WORD 6EING EXECUTED PRESENTLY. 

SAVE LOCATION FOR CMD WORD DURING ERROR RECOVER 

CONTAINS PREVOUS COMMAND WORD. 

CURRENT COMMAND LOGGING CODE, 

RANDOM WRITE LENGTH MASK, TO BE SET UP Bi TESTS 

RANDOM * GENERATOR BASE. 

RANDOM SAVE LOCATION. 

TIME COUNT 1. 

TIME COUNT 2. 

JMP COMMANO LOOP COUNT. 

JMP COMMAND LOCATION CCUNT. 

PATTERN SELECT CODE. 

CURRENT TERMINATION uLASS CODE. 

LOCATION FOR SAVING CURRENT DEVICE POINTER. 

CURRENT STATUS REGISTER. 



I [ 



::> 



GLL1BA1 


Artf AS 


MACUl 


VM 104b) 


CZTSHD, 


Pll 06-APR-84 


08:49 


25 - T 5 








25 76 








25" 








2576 




003404 




2579 


003404 


000000 




2580 


003406 


000 




2581 


003407 


000 




2582 


003410 


000 




2583 


003411 


000 




2584 


003412 


000 




2585 


003413 


oco 




2586 


003414 


000 




2587 


003415 


000 




2588 








2589 




003416 




2590 








2591 








2592 








2593 


003416 


000004 




2594 


003426 


000004 




2595 


0034 36 


000000 




2596 


003440 


000 




2597 


003441 


000 




2598 


003442 


000 




2599 


003443 


000 




2600 


003444 


000 




2601 


003445 


000 




2602 


00344o 


000 




2603 


003^4 7 


000 




2604 


G03450 


000 




2605 


003451 


000 




2606 








2607 








2608 








2609 




003452 




2610 








2611 








2612 








2613 


C03452 


000 




2614 


003453 


000 




2615 


003454 


000 




2616 


003455 


000 




2617 








2618 








2619 








2620 








2621 


003456 


000000 




2622 
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GLOBAL DATA SECTION 



SEQ 006^ 



ERROR FLAG AREA, THESH FLAGS ARE CLEARED DURING INITIALIZATION AND 
AFTER EACH COMMAND IS COMPLETED. 



BGNFLG- 


, 




RETRYC: 


: .WORD 





RPTCNT: 


: .BYTE 





URTYF'G: 


: .BYTE 





WRTYER: 


i .BYTE 





RECLOG: 


: .BYTE 





ERLOG: : 


.BYTE 





RWERR:: 


.BYTE 





UNREC: : 


.BYTE 





ERRREC: 


: .BYTE 
.EVEN 






I WRITE 



10 OF RECOVERY ATTEMPTS EXECUTED. 
REPEAT ON SAME SPOT CNTRj 4 PER WRITE RETRY 



IN PROGRESS FLAG 
ERROR FLAG 



;WRITE RETRY ON SAME SPOT 

jWRITE RETRY ON SAME SPOT 

j RECORD COUNT HAS BEEN UPDATED FOR THIS 

jDATA BYTES AND ERRORS HAVE BEEN LOGGED 

(READ/WRITE ERROR HAS OCCURED. 

{UNRECOVERABLE ERROR HAS OCCURED. 

j ERROR RECOVERY MODE. 



RECORD. 
FOR THIS 



ENDERF 



ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 

, INTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 
EOT/DOT FLAGS FOR EACH DEVICE (XSTATO). 



INTFLG: 


: .8LKW 


4 


EOTFLG: 


: .BLKW 


4 


BTPT: : 


.WORD 





EXPBOT: 


: .BYTE 





RANDOM; 


: .BYTE 





VFYFLG; 


: .BYTE 





RPTFLG; 


: .BYTF 





SWBFLG: 


: .BYTE 





IRE: : 


.BYTE 





DROPED: 


: .BYTE 





T1SWB: : 


.BYTE 





ALLEOTj 


: .BYTE 





ERSFLG: 


i .BYTE 






ENOFLG' 



STAFLG 
PWRFLG 
TRAPD4 
MISCFG 



.EVEN 



BAD TAPE SPOT POINTER TO BT0-BT3 



VIA BTADDR 
BOT/FUNC RTI 



BOT IS EXPECTED. DO NOT ABORT ON 

RANDOM EVERYTHING FLAG. 

SET DURING WRITE/VERIFY COMMAND. 

PERFORMANCE REPORT HAS BEEN REQUESTED. 

ENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL 

INHIBIT RESIDUAL FRAME COUNT ERROR REPORT 

CURRENT UNIT HAS BEEN DROPPED 

TEST! SWAP BYTES FLAG 

ALL UNITS S EOT FLAG 

ERASE FLAG: DO ERASE AFTER A 

BADLY WRITTEN RECORD. 1 TO 4 

A 3 TO 12 INCH GAP MAY RESULT 



TO ZE 



SPACE REV TO DELE 
ERASES LEAVING 



ADDITIONAL FLAGS. THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED 



.BYTE 
.BYTE 
.BYTE 
.ByTE 











j START FLAG - SET BY INIT CODE IF STARTING 
POWER FAILURE FLAG - SET ONLY DURING INIT 
TRAPED AT 4 FLAG 
MISCELLANEOUS FLAG 



OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 
SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 



OPFLAG;; .WORD 
• EVEN 



jREAD ONLY OPERATOR FLAG WORD 



M5 



GLOBAL 


ARE-' AS 


MAC 111 


30(1046) 


CZTSHO. 


PU 06-APR-84 


08:49 


2623 

2624 








2625 








2626 








262: 


003460 


140004 




2628 


003462 


000040 




2629 


003464 


0C0001 




2630 


003466 


000000 




2631 


0034 70 


102010 




2632 


003472 


000001 




2633 


0034 74 


000001 




2t>34 


0034 76 


000007 




2635 


003500 


104005 




2636 


003502 


004000 




2637 


003504 


076400 




2636 


003506 


000007 




2639 


003510 


104401 




2640 


003512 


00400C 




2641 


003514 


076400 




2642 


003516 


000007 




2643 


003520 


104001 




2644 


003522 


004000 




2645 


003524 


076400 




2646 


003526 


00000 7 




2647 


003530 


102010 




2648 


003532 


000001 




2649 


003534 


000001 




2650 


003536 


000007 




2651 


003540 


000004 




2652 


003550 


177777 




2653 


003552 


177777 




2654 


003554 


177777 




2655 


00355b 


177777 




2656 


003560 


1/7777 
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GLOBAL DATA SECTION 



SEQ 0064 



{THE FOLLOWING IS THE COMMAND SEQUENCE TABLE. THE TABLE 
{HAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
j CAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 

{SET CHARACTERISTICS. 



CMDSEQ:: .WORD 


SCH 


.WORD 


CH.EAI 


.WORD 


I 


.WORD 


C 


CMDSE2:: .WORD 


RWD 


.WORD 


1 


. WORD 


1 


.WORT 


RANP 


.WORD 


WRT 


.WORD 


DATCNT 


.WORD 


32000. 


.WORD 


RANP 


. WORD 


RDR 


.WORD 


DATCNT 


.WORD 


32000. 


.WORD 


RANP 


.WORD 


RDF 


.WORD 


DATCNT 


.WORD 


32000. 


. WORD 


RANP 


.WORD 


RWD 


.WORD 


1 


.WORD 


1 


.WORD 


RANP 


.BLKW 


4 


SEQEND:: .WORD 


END 


.WORD 


END 


.WORD 


END 


.WORD 


END 


.WORD 


END 



REWIND. 

BYTE COUNT. 

ONCE. 

PATTERN. 

WRITE. 

MAX BUFFER LENGTH. 

32,000 RECORDS. 

RANDOM PATTERN. 

READ REV. 

MAX BUFFER LENGTH. 

32,0^0 RECORDS 

RANDOM PATTERN, 

READ FWD. 

MAX BUFFER LENGTH. 

32.000 RECORDS. 

RANDOM PATTERN. 

REWIND. 

BYTE COUNT. 

ONCE. 

PATTERN. 

EXTENSTION TO HOLD 1 MORE CMD 

SOFT END OF SEQUENCE TABLE. 



;HARD END OF SEQUENCE TABLE. 



N5 



GLOBAL 


AREAS 


MACU1 30(1046) 


CZTSHD. 


Pll 06-APR-84 08:49 


265 7 






2656 






2659 


0035^2 


100013 


2660 


003564 


1040CI 


2661 


003566 


104401 


2662 


003570 


104005 


2663 


003572 


104105 


2o64 






2665 






2666 


003574 


104010 


2667 


003576 


104410 


2666 


003600 


105401 


266? 


003602 


125401 


2670 


003604 


105001 


2671 


003606 


125001 


2672 


003610 


105005 


2675 


003612 


102010 


26 74 


003614 


100012 


2675 


003616 


100011 


26 76 


003620 


101011 


2677 


003622 


105010 


2678 


003624 


105410 


2679 


003626 


100017 


2680 


003630 


100411 


2681 


003632 


100412 


2682 


003634 


101012 


2683 


003636 


140004 


2684 


003640 


i 00006 


2685 


003642 


000040 


2686 


003644 


000020 


268? 


0C3646 


177777 
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GLOBAL DATA SECTION 



SEQ 0065 



ALL 



FORWARD. 
REVERSE. 



{THE FOLLOWING IS THE TS04 COMMAND TABLE 



{DRIVE INIT. 
j READ FORWARD. 

READ REVERSE. 

WRITE 

WRITE/VERIFY. 

CHECK DATA ON 

CHECK DATA ON 

SPACE "N" RECORDS 

SPACE "N" RECORDS 

READ NEXT REVERSE 

READ NEXT FORWARD 
{READ PREVIOUS 

READ PREVIOUS 

WRITE RETRY. 

REWIND. 
{MESSAGE BUFFER RELEASE 

WRITE TAPE MARK 

WRITE TAPE MARK RETRr . 

SPACE "N" FILES FORWARD 

< /-ACE *'N" FILES REVERSE 

ur I EXTbNUtD SIAIUS. 

ERASE 3 INCHES OF TAPE. 

REWIND AND UNLOAD. 

CLEAR TAPE. 

SET CHARACTERISTICS. 

DIAGNOSTIC COMMAND. 

JUMP TO THE.. NTH COMMAND 

DELAY "N" MS. 

END OF COMMAND TABLE 



CMDTBLu .WORD 


DRI 


.WORD 


RDF 


.WORD 


RDR 


, WORD 


WRT 


.WORD 


WTV 


.WORD 


SRF 


.WORD 


SRR 


.WORD 


RNR 


.WORD 


RNF 


.WORD 


RPF 


.WORD 


RPR 


. WORD 


WRR 


.WORD 


RWD 


.WORD 


MBR 


.WORD 


WTM 


.WORD 


WTR 


.WORD 


SFF 


.WORD 


SFR 


.WORD 


jES 


.WORD 


ERS 


.WORD 


UNI 


.WORD 


CLN 


.WORD 


SCH 


.WORD 


DIA 


.WORD 


JMP 


.WORD 


DLY 


.WORD 


END 



(WRITE AlL RECORDS, 
ALL RECORDS, RDF AND 
RECORDS. ) 
FORWARD. 
REVERSE. 



RDR AND 



. SPACE FWD. READ REVERS 
, READ FORWARD, SPACE RE 
I.E. . SPACE REVERSE, RE A 
I.E., READ REVERSE, SPAC 



IN THE SEQUENCE 



B6 



GLOBAL 


ARt AS 


liACUi 


30(104cO 


CZTSHD, 


Pll 06-APR-84 


06} 49 


2689 








26*0 








2691 


003650 


051104 


111 


2692 


003653 


122 


04 3104 


2693 


003656 


042122 


122 


2694 


003661 


127 


052122 


2695 


003664 


052127 


126 


2t>96 








2697 


003667 


123 


043122 


2698 


0036 72 


05*123 


122 


2699 


003675 


122 


051116 


2 700 


003700 


04 7122 


106 


2701 


003703 


122 


043120 


2702 


003706 


05012? 


122 


2703 


003711 


127 


0M122 


2704 


003714 


053522 


104 


2705 


003^17 


115 


05U02 


2 706 


003 722 


052127 


115 


2707 


003725 


127 


051124 


2708 


003730 


045123 


106 


2 709 


003733 


123 


051106 


2710 


003736 


042507 


123 


2711 


003741 


105 


051522 


2712 


003744 


047125 


114 


2713 


003 74 7 


103 


047114 


2714 


003752 


041523 


110 


2715 








2716 
271 7 

2718 


003755 


104 


040511 








271* 
2 .'20 


003 760 


046512 


120 


2721 
2 '22 


00 5. "6 3 


104 


054514 


2V4 


003766 


04 7105 


104 


2 725 




003772 
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GLOBAL DATA SECTION 



SEQ 0066 



l 



CMDASCs 



THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 



.ASCII 


/ORI/ 


.ASCII 


/RDF/ 


.ASCII 


/ROR/ 


.ASCII 


/WRT/ 


.ASCII 


/WTV/ 


.ASCII 


/SRF/ 


.ASCII 


/SRR/ 


.ASCtl 


/RNR/ 


.ASCII 


/RNF/ 


.ASCII 


/RPF/ 


.ASCII 


/RPR/ 


.ASCII 


/WRR/ 


.ASCII 


/RUO/ 


.ASCII 


/MBR/ 


.ASCII 


/UTM/ 


.ASCII 


/WTR/ 


.ASCII 


/SFF/ 


.ASCII 


/SFR/ 


.ASCII 


/GES/ 


.ASCII 


/ERS/ 


.ASCII 


/UNl V 


.ASCII 


/CLN/ 


.ASCII 


/SCH/ 



.ASCII /OIA/ 



.ASCII /JMP/ 






.ASCII 

.ASCII 
.EVEN 



/OL 1/ 

/END/ 



RDR ANO CHEC 
ON ALL RECOR 



DRIVE INIT, 

READ FORWARD. 

REAO REVERSE, 

WRITE 

WRITE/VERIFY, (WRITE ALL RECORDS. 

ON ALL RECORDS, RDF ANO CHECK DATA 

SPACE "N" RECORDS FORWARD. 

SPACE "N" RECORDS REVERSE. 

READ NEXT REVERSE. I.E., SPACE FWO READ REVERSE: 

READ NEXT FORWARD. I.E., READ FORWARD. SPACE RF 

READ PREVIOUS FORWARD. IE., SPACE REVERSE, READ 

READ PREVIOUS REVERSE. IE., READ REVERSE, SPACE 

WRITE RETRY. 

REWIND. 

MESSAGE BUFFER RELEASE 

WRITE TAPE MARK 

WRITE TAPE MARK RETRY. 

SPACE "N" FILES FORWARD. 

SPACE "N" FILES REVFUSE. 

GET EXTENOED STATUS. 

ERASE 3 INCHES OF TAPE. 

REWINO AND UNLOAD. 

CLEAN TAPE. 

SET CHARACTERISTICS. WHERE BRF-200. 40. 20. 0. 

SEE TSU/TS04 PROGRAMMING SPECIFICATION FOR DES 

DIAGNOSTICS. SEE TS11/TS04 PROGRAMMING SPECIF I 

FOR DESCRIPTION. OOT MUST BE USED TO LOAD OIAo 

INTO THE WRITE BUFFER BEFORE THIS CMO IS ISSUED 

JUMP TO THE NTH COMMANO IN THE COMMANO 

SEQUENCE TABLE, WHERE N IS DEFINED IN 

THE OF OPERATIONS. 

DfLAr -N" MS, WHERE N IS DEFINED IN 

TMt 9 Qh OPERATIONS. 

END OF CQMMAND SEQUENCE. 



2728 



Cb 



U.OHAl ARIAS 
CZTSHD.P11 

i. * t. ^ 

2 731 

2 W 

2:33 

■V34 

2735 
J .'56 

2 737 
273* 
2'3<* 
2 740 
2741 

2 742 
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GLOBAL TEXT SECTION 



SEQ 006 7 



003772 047045 040445 047125 



004102 

004164 
004207 
004230 
004254 
004271 
004310 
004335 
004353 
004373 
004421 
004436 
004460 
004504 
004550 
004572 
004616 
004645 
00467 7 
004 746 
005010 
005031 

0050?3 
005127 
005157 
005213 
005216 



054130 

046503 

004164 

040504 

116 

04 7125 

043122 

124 

042522 

125 

106 

106 

116 

040524 

04 7524 

040503 

042522 

047125 

04 7045 

045 

045 

042045 

040445 

045 

045 

045 

045 

045 

047045 



020130 
020104 

040524 
020117 
042504 
020103 
030523 
051124 
044516 
047125 
052101 
020117 
042520 
020117 
051520 
04 7503 
042522 
040445 
022516 
022516 
022464 
04 7516 
051101 
051101 
052501 
04 3501 
000116 
051445 



046503 
040r>20 

041440 
051524 
044506 
047516 
020061 
020151 
020124 
052103 
046101 
047111 
051440 
040515 
040524 
042526 
047503 
051104 
040501 
041101 
020101 
042040 
041505 
041505 
044516 
052105 

000067 



>SBTTL GLOBAL TEXT SECTION 

I THE GLOBAL TF.XT SECTION CONTAINS FORMAT STATEMENTS, 
I MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
X MORE THAN ONE TEST. 
I • ■ 



, FORMAT STATEMENTS USED IN PRINT CALLS 

J 



.NLIST BEX 



CODELMj j 

HALTMj { 
CMOPaM; t 



WTVERM 

TOERM; 

SCERM: 

RFCERM 

NSSRM; 

RLEXM: 

ATTNM; 

FUNRM; 

FATSM} 

NOINTM 

TSAM; 

TOOMM 

RNYMj 

RERMj 

URERM 

DROPOM; 

AUORPM » 

DTAF.R2: 

DTAER3: 

DTU-R4: 

DTAER5; 

NURTU j 

OrLlNMj 

GFTSTM: 

CRLF. : 

CRLFSPi 



SV43 



■ASCI? 
.EVEN 
.ASCIZ 

,ASCIZ 
.EVEN 

.ASCIZ 
.ASCIZ 
.ASCIZ 

,ASCIZ 
.ASCI* 
,ASC1Z 
.ASCIZ 
.ASCIZ 
.ASCIZ 

,ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
♦ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCI/ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCI/ 

.ASCU 
.i 1ST 
>tVEN 



/*fWAUNIT #D1#A TS11 CODE LEVEL P«03*N*N/ 



/XXX CMO - TYPE 
/CMO PACKET ADR 



<CR> to continue;/ 

NOT ON MODULO 4 BOUNDARY; RFLOAD}/ 



/DATA COMPARE ERrtOR/ 

/NO TSlt RESPONSE/ 

/UNOEFINED SPEC COND/ 

/RFC NON ZERO/ 

/TS11 NOT READY/ 

/RETRY LIMIT EXCEEDED-' 

/UNIT OFF LINE/ 

/FUNCTION REJECT/ 

/FATAL S'JBSYSTEM ERROR/ 

/NO INTERRUPT/ 

/TAPE STATUS ALERT/ 

/TOO MANY INTERRUPTS/ 

/CAPSTAN RUNAWAY GET STATUS RESULTS:' 

/RECOVERABLE ERROR/ 

/UNRECOVERABLE ERROR/ 

/#N#ADROPPED UNIT v>Di*N/ 

/*N*AALL UNITS DROPPED*N*N/ 

"*N*A0YTE:*04#S2*AgAS:*e8*S2*A3/B:*B8*N u 

"#D4*A BYTES IN ERROR OUT OF *04*N" 

/ilANO DATA READ*N/ 

/•ARECORO TOO I ONG: >*04*A BtTES*N/ 

/#ARECOVERED ON RETRY <h*D2«N 

/#AUNIT ^DWA OFF LINE*N' 

/#AGET STATUS CMD RESUUSi*N/ 

/*N/ 

/*N*S7/ 



Dt 



Gl Otf Ai 


Am AS 


MAO 11 


30k i04<O 


C^TSHO. 


PI I OoAPR 84 


08;49 


J 744 








2745 








274* 








2747 








2743 








2749 








2750 








2751 








2752 








2753 


005224 






2754 


005224 






2755 


005224 






2 75b 


005224 


016^46 


003324 


2757 


005230 


016546 


003254 


2758 


005234 


016546 


C02532 


2759 


005240 


012746 


005704 


2760 


005244 


012746 


000004 


2761 


005250 


010600 




2762 


005252 


104414 




2763 


005254 


062706 


000012 


2764 


005260 






2765 


005260 


012746 


005776 


2766 


005264 


012746 


000001 


2767 


005270 


010600 




2768 


005272 


104414 




2769 


005274 


062706 


000004 


2770 


005300 






2771 


005300 


010237 


006312 


2772 


005304 






2773 


005304 


010337 


003364 


2774 


005310 






2775 


005310 


010437 


003366 


2776 


005314 


004737 


006346 


2777 


005320 






2778 


005320 


013702 


006312 


2779 


005324 






27?0 


005324 


010337 


006312 


2781 


005330 






2782 


005330 


013703 


003364 


2783 


005334 






2784 


005334 


013704 


003366 


2785 


005340 






2786 


005340 


013746 


006312 


2787 


005344 


012746 


006026 


2788 


005350 


012746 


000002 


2789 


005354 


010600 




2 790 


005356 


104414 




2791 


005360 


062706 


000006 


2792 


005364 






2793 


005364 


00016? 




2794 


005366 


000000 




2795 








2796 








2797 


0053 70 






2798 


005 3 70 






2799 


005370 


104423 
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GLOBAL ERROR REPORT SECTION 

.S8TTL GLOBAL ERROR REPORT SECTION 



SfcQ 0068 



THE GLOBAL ERROR REPOR - SECTION CONTAINS THE PRINTB AND PRINTX CALLS 

THAT APE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 

THAT ARfc USED BY THE PRINTB AND PRINTX CALLS,. 



DTAERM: } 



BGNMSG DTAERM 

PRINTB 0STAERl.DEVTBLtR5),PASCNT(R5),RECCNT(R5) 



PRINTS 0STAER7 



LET RECRED j- R2 

LET TIMF.l j- R5 

LET TIME2 i - R4 

JSR PC.RECTAP 
LET R2 :- RECRED 

LET RECRED :- R3 

LET R3 :• TIME! 

LET R4 :- TIMF2 

PRINTB OS TAER6, RECRED 



L 10002 t 



t X t T MSG 

,FVtN 
ENUMSG 









MOV 


RECCNTCR 








MOV 


PASCNT(R 








MOV 


DEVT6LCR 








MOV 


0STAER1. 








MOV 


04, -fSP) 








MOV 


SP.RO 








TRAP 


CSPNTR 








ADD 


012, SP 








MOV 


*STAER.\ 








MCV 


01. CSP) 








MOV 


SP.RO 








TRAP 


C$PNTB 








ADO 


04, SP 


j SAVE R2 






MOV 


R2. RECA- 


j SAVE R3 






MOV 


PS, TIMEi 


j SAVE R4 






MOV 


R4.TIME2 


RETRIEVE RECORD READ 






jRESTORE 


R2 




MOV 


RECRED, R 


iSAVE RECORD 


READ 












MOV 


R 3, RE CM 


{RESTORE 


R3 




MOV 


TIMf.i.R3 


j RESTORE 


R4 




MOV 


TTME2.R4 


, PRINT RECORD 


READ 












MOV 


RECRED. 








MOV 


oSfAERti. 








MOV 


* 2 , « SP ^ 








MOV 


SP.RO 








TRAP 


C*r->NTt. 








ADD 


06, SP 








.WORD 


)$ JMP 








. WORD 


L 10002 -2 



TRAP 



C$M*u 



t- 6 



GLOBAL 


ARF AS 


MACU1 


30(1046) 


CZTSHD. 


PU Ob-APR-84 


08*49 


2600 








2801 


005372 






2802 


005372 






2803 


005372 






2804 


005372 


016546 


003324 


2805 


005376 


0165<6 


003254 


2806 


005402 


016546 


002532 


280? 


005406 


012746 


005704 


2808 


005412 


012746 


000004 


2809 


005416 


010600 




2810 


005420 


104414 




2811 


005422 


062706 


000012 


2812 


005426 






2813 


005426 


012746 


005776 


2814 


00^432 


012746 


000001 


2815 


005436 


010600 




2816 


005440 


104414 




2817 


005442 


062706 


000004 


2818 


005446 






2819 


005446 


013702 


002310 


2820 


005452 


042702 


177740 


2821 


005456 






2822 


005456 


005302 




2823 


0054*>0 






2824 


005460 


005702 




2825 


005462 


001016 




2826 


005464 


004 737 


006346 


2827 


005470 






2828 


005470 


010337 


006312 


2829 


005474 






2830 


0054 74 


013746 


006312 


2831 


00550C 


012746 


006026 


2832 


005504 


012746 


000002 


2833 


005510 


010600 




2834 


005512 


104414 




2835 


005514 


062706 


000006 


2836 


005520 






2837 


005520 






2838 


005520 






2839 


005520 


012746 


0CS062 


2640 


005524 


012746 


000001 


2841 


005530 


010600 




2842 


005532 


104415 




2843 


005534 


062706 


000004 


2844 


005540 






2845 


005540 


013746 


003376 


2846 


005544 


013746 


Ou3402 


284 7 


005550 


013746 


002340 


2848 


005554 


017546 


002452 


2849 


005560 


013746 


002310 


2850 


005564 


012746 


006141 


2851 


005570 


012746 


000006 


2852 


005574 


010600 




2853 


0055 76 


104415 




2854 


005600 


062706 


000016 


2855 


005604 
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SEQ 0069 



STAERM: 



BGNMSG STAERM 

PRINTB 0STAER1,UEVTBLCR5),PASCNT(R5),R£CCNT(R5) 





MOV 


RECCNTCR 




MOV 


PASCNTCR 




MOV 


DEVTBLCR 




MOV 


0STAER1, 




MOV 


04 , - C SP ) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADD 


012, SP 


PRINTB 0STAER7 








MOV 


0STAER7, 




MOV 


♦ 1,-CSP) 




MOV 


SP.RO 




TRAP 


C$FNTB 




ADD 


OA.SP 


LET R2 :■ CMDPKT CLR.BY 0177740 








MOV 


cmopkt.r 




BIC 


0177740, 


LET R2 :« R2 - *>l 








DEC 


R2 


IF R2 EQ 00 THEN ; IF CMD IS A READ 








TST 


R2 




BNE 


50000$ 


JSR PC.RECTAP j THEN RETRIEVE 






LET RECREO : - R3 jAND 








MOV 


R3.RECRE 


PRINTB 0STAER6.RECRED jTyPE RECORD READ 








MOV 


RECRED.- 




MOV 


0STAER6, 




MOV 


02,-CSP) 




MOV 


SP.RO 




TRAP 


CiPNTB 




ADD 


0x5, SP 


END IF 






50000$ 


♦ 




PRiNI/ 0STAER2 








MOV 


0STAER2, 




MOV 


01, (SP) 




MOV 


SP.RO 




TRAP 


C5PNTX 




ADD 


04.SP 


PRINTX 0STAER3 , CMDPK V , 3TSDBC R5 ) , MSGPK T »Mb . RFC , TSSREG , 


CTCC 






MOV 


CTCC, (S 




MOV 


TSSREG, • 




MOV 


MSGPK T »M 




MOV 


3TS0BCR5 




MOV 


CMOPKT, ■ 




MOV 


0STAER3, 




MOV 


*6, CSP^ 




MOV 


SP.RO 




TRAP 


c$pn:\ 




ADD 


oi&,sp 


PRINTX US r AER4 , CMDPK T *2 , CMDPK T *4 f CMDPK T »6 







GLOBAL AW AS 
CZTSHD.Pll 



MACU1 30(104tO 
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SEQ 00/0 



2856 
5857 

2858 

2859 

2860 

2861 

2862 

2363 

2864 

2865 

2866 

2867 

2868 

266^> 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 



2879 
2880 
2881 
2882 
2885 
2684 



005604 
005610 
005614 
005620 
005624 
005630 
005632 
005634 
005640 
005640 
005644 
005650 
005654 
005660 
005664 
005670 
005672 
005674 
005700 
005700 
005702 



00577b 
006026 
006062 
006141 
006177 
006204 
006211 
006217 
006262 



006314 
006314 
006314 



C15746 
013746 
013746 
012746 
012746 
010600 
104415 
062 706 

013746 
013746 
013746 
013746 
012746 
012746 
010600 
104415 
062706 

000167 
000410 



002316 
002314 
002312 
006177 
000004 



000012 

002350 
002346 
002M4 
002342 
006217 
000003 



000014 



005704 040445 054130 020130 



040445 

051445 

047045 

045 

045 

047445 

04 r 

045 

047445 



051120 
030461 
040445 
033117 
033117 
022-166 
033117 
054101 
022466 



006312 000000 



053105 
040445 
046503 
051445 
04V 04 5 
116 
04 7045 
052123 
031123 



104423 



STAEFUt 

STAER7- 
STAER6: 
STAER2: 
STAERi: 
5TAFR4- 



STAER5: 



RECRED: 



L 10003 5 



EXIT 



.NLIST 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCI7 

.ASCII 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.LIST 

.EVEN 

.WORD 

ENDMSG 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



CMDPKT*6 

CMDPKT*4 

CMDPKT*2 

0STAER4, 

44.-CSP) 

SP.RO 

CSPNTX 

012, SP 



PRINTX 0STAER5 , MSGPKT *MS . XSO , MSGPKT * MS . i<Sl , MSGPKT ♦ MS . XS2 , MSGPKT *MS . XS3 



MSG 



BEX 
/*AXXX 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

.WORD 
.WORD 



MSGPKT *M 
MSGPKT*M 

MSG n, <T*M 

MSGPKT, M 

0STAER5, 

05.-CSP) 

SP.RO 

C*PNTX 

014, SP 

J*JMP 
L10003-2 



CMD FAILED - UNIT *D1*S3*APASS :#D5*S3*AREC0RD:*D5*N/ 



/HAPREVIOUS CMD WAS XXX/ 

/*SU*A* RECORD READ : *D5*A ♦/ 

/f<N#ACMDPKT#S2#ATSBA*S4#ARFC*S5i<ATSSR*S3*ATCC*N/ 

/*06*S2*06*S2*06*S2*06*S2*D1*N/ 

/v<06*N/ 

/i<06*N/ 

/*06*N/ 

/*AXST0i'S4*AXSU*S4*AX$:2*S4*AXST3*N/ 

/*06*S2*06#S2*06*S2rf0&*N/ 

BEX 







{RECORD READ FROM TAPE 



TRAP 



C$MSG 



G6 



GLOBAL ARK AS MAO 11 30( 104b) 
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2885 




2886 




2887 




2888 




2889 




2890 




2891 




2892 




2893 




2894 


006316 


2895 


0C6316 


2896 


006316 


2897 


006316 


2898 


006322 


2899 


006322 


2900 


006322 


2901 




2902 


006324 


2903 


006324 


2904 


006324 


2905 


006324 


2906 


006330 


2907 


006330 


2908 


006330 


2909 




2910 


C06332 


2911 


006332 


2912 


006332 


2913 


006332 


2914 


006336 


2915 


006336 


2916 


006336 


2917 




2918 


006340 


2919 


006340 


2920 


006340 


2921 


006340 


2922 


006344 


2923 


006344 


2924 


006344 



005237 003416 



000002 



005237 003420 



000002 



005237 003422 



000002 



005237 003424 



000002 



.SBTTL GLOBAL SUBROUTINES SECTION 



I ♦♦ 



} THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
i THAT ARE USED IN MORE THAN ONE TEST. 
J -- 



} 



TS4IN0: : 



L 10004 j 



MODULES TO HANDLE TS04 INTERRUPTS. 

BGNSRV TS4IN0 iDEVICE 0. 

LET TNTfLG s* INTFLG ♦ <U {SET INTERRUPT OCCURRED 

ENDSRV 



TS4IN1; : 



L 10005} 



TS4IN2:: 



I 10006: 



TS4IN3*: 



L 1000 7; 



BGNSRV TS4IN1 

LET INTFLG »2 :« INTFLG»2 • 01 

ENDSRV 

BGNSRV TS4IN2 

LET INTFLG*4 j* INTFLG*4 * $1 

ENDSRV 

BGNSRV TS41N3 

LET INTFLG*6 :» INTFLG*6 f *?- 

ENDSRV 



{DEVICE 1. 

{SET INTERRUPT OCCURRED 



{DEVICE 2. 

jSET INTERRUPT OCCURRED 



{DEVICE 3. 

j SET INTERRUPT OCCURRED 



FL4G. 
INC 



RTI 



FLAG 
INC 



RTI 



FLAG 
INC 



RTI 



FLAG 
INC 



RTI 



SEQ 0071 



INTFLG 



INTFLGt2 



INTFLG*4 



INTFLU*6 



H6 
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2925 








2926 








292? 








2928 








2929 








2930 








2931 








2932 


006346 






2933 


006346 


032 737 


000400 


2934 


006354 


001430 




2935 


006356 






2936 


006356 


013702 


002340 


2937 


006362 


063702 


003336 


2938 


006366 






2939 


006366 


032702 


000001 


2940 


006372 


001417 




294 \ 


006374 






2942 


006374 


005202 




294 3 


006376 






2944 


006376 


111203 




2945 


006400 


142703 


177400 


2946 


006404 






2947 


006404 


000303 




2948 


006406 






2949 


006406 


005302 




2950 


006410 






2951 


0OS4 .0 


105737 


003444 


2952 


006414 


001401 




2953 


006416 






2954 


006416 


005302 




2955 


006420 






2956 


006420 






2957 


006420 






2958 


006420 


111204 




2959 


006422 


142704 


177400 


2960 


006426 






2961 


006426 


050403 




2962 


006430 






2963 


006430 


000401 




2964 


006432 






2965 


006432 






2966 


006432 


011203 




296 7 


006434 






2968 


006434 






2969 


006434 






2970 


006434 


00O402 




2971 


006436 






2972 


006436 






2973 


0064 36 


017703 


3.74674 


2974 


0O6442 






2975 


006442 






29 76 








2977 


006442 


000207 
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j SUBROUTINE TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 

; PRINTS, 

; INPUTS} 

j OUTPUTS; R3 • RECORD COUNT READ 

j REGISTERS: R2, R3. R4 

; CALLS: 



003346 



RECTAP::IF flMOD.CO SETIN CMDWRD THEN 



jREAD REV FETCH 



LET R2 s- MSGPKT*MS.RFC ► DATARD {FIND LAST READ AD. 



IF 4BIT00 SETIN R2 THEN 



LET R2 ;- R2 ♦ M 



{ODD AD, , REASSEMBLE 



{RFC COUNT STARTING 



LET R3 jB» CR2) CLR.bY 0177400 {WITH UPPER BYTF KETCH 

LET *3 :- SWAP R3 ; 

LET R2 :- R2 ~ #1 {LOWER BYTE AD, 

IFB SWBFLG NE 00 THEN 

LET R2 j- R2 - #1 sLUWER BYTE AD, ON SWAP 

DEC 
ENDIF 

50003$: 
LET R4 ;B- CR2) CLR,B> ^177400 {FETCH LOWER BYTE 



LET R3 :« R3 OR R4 
ELSr 

LET R3 :* CR2) 
ENDIF 
ELSE 



LEi R3 J- SJDATARD 

ENDIF 



50005$; 



SEQ 0072 



BIT 
BEQ 


tfMOD.CO, 
50001* 


MOV 
ADD 


MSGPKT.M 
DATARD, R 


BIT 
BEQ 


*BITOO,R 
50002$ 


INC 

CH 


R2 


MOVB 
BICB 


CR2),R3 
$177400, 


SWAB 


R3 


DEC 


R2 


TSTB 
BEQ 


SWBFLG 
50003$ 



R2 



;MERGE BYTES 




MOVB 
BICB 

BIS 


CR3;.R4 
$177400* 

R4.R3 


;LVEN AD. FETCH 


50002$: 
50004 $ : 


BR 
MOV 


50004 $ 
(R2^.R3 


jREAD FWU FfcTCH 


50001 *: 


BR 
MOV 


50005$ 

SQATARD, 



RTS 



PC 



GLOBAL. ARfAS 
CZTSHD.P11 

2978 

2979 
2980 
2981 
2982 
2983 



MACU1 50(1046) 
06 -APR -84 08:49 



16 
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SEQ 0073 



2985 
2986 
298 7 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
300/ 1 
3005 
300o 
300 7 
3008 
3009 



0064 70 
0064 70 
0064 74 
0064 74 
006500 
006500 
006504 
006506 



012721 
005721 
000207 



J 



006444 

006444 012701 003*60 

006450 0!2721 140004 

006454 012721 000040 

006460 012721 000001 

006464 005721 

006466 000207 



012721 102010 
012721 000001 



SETRWi 



00000 I 



A SET CHARACTERISTIC COMMAND AS 
THE FIRST ENTRY IN THE SEQUENCE TABLE. 
INPUTS? 
OUTPUTS: 
REGISTERS? 
CALLS: 



SETCH; : LET RJ 

MOV 
HOV 
MOV 
1ST 
RTS PC 



- flCMDSEQ 

4SCH,(Rl)> 

4DFTSCH,(Rl)f 

»1,(RD* 
(Rl)» 



iINIT COMMAND SEQUENCE TABLE POINTER. 

MOV 0CMDSEQ, 
iTHlS COOE SETS UP A SET CHARACTERISTIC 
{COMMAND AS THE FIRST COMMAND IN THE 
S SEQUENCE TABLE. 
jSKIP PATTERN LOCATION. 



SUBROUTINE TO STORE A REWIND COMMAND IN THE SEQUENCF TABLE 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



LET (Rl)» 

LET CRD* 
LET (RIm 

TST CR1)> 

RTS PC 



0RWD 

n 



fCMO - REWIND. 








MOV 


*RWD,(R1 


iBRI". 








MOV 


*1,(R1)» 


:0 OF OPERATIONS, 








MOV 


n.(RO* 


j SKIP PATTERN. 






j RE TURN 







J6 



GLOBAL 


ARE AS 


MACU1 


30(1046) 


06-APF 


CZTSHD. 


Pll 06-APR-84 


08;49 




3010 










3011 










301? 










3013 










3014 










3015 










3016 










3017 


006510 








3018 


006510 


012701 


003460 




3019 


006514 








3020 


006514 








3021 


006514 


021127 


177777 




3022 


006520 


0015^7 






3023 


006522 


004737 


007452 




3024 


006526 








3025 


006526 








3026 


006526 


023737 


003340 


003342 


3027 


006534 


002116 






3028 


006536 


004737 


007344 




3029 


006542 








3030 


006542 


105737 


003441 




3031 


006546 


001435 






3032 


006550 








3035 


006550 


023727 


003346 


104005 


3034 


006556 


001031 






3035 


006560 








3036 


006560 


105737 


003442 




3037 


006564 


001026 






3038 


006566 








3039 


006566 


063737 


003362 


003360 


3040 


006574 








3041 


006574 


063737 


003360 


003362 


3042 


006602 








304 3 


006602 


013737 


003362 


003344 


3044 


006610 








3045 


006610 


043737 


003356 


003344 


3046 


006616 








304 7 


006616 


023727 


003344 


000022 


3048 


006624 


002003 






3049 


006626 








3050 


006626 


012737 


000022 


003344 


3051 


006634 








3052 


006634 








3053 


006634 








3054 


006634 


013737 


003344 


002316 


3055 


006642 








3056 


006642 








3057 


006642 








3058 


006642 








3059 


006642 








3060 


006642 








3061 


006642 


004 73 7 


007004 




3062 


006646 


004 737 


016060 




3063 


006652 








3064 


006652 


01 '.'70 J 


000001 




3065 


006656 


004/37 


0154 52 
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GLOBAL SUBROUTINES SECTION 



SEQ 0074 



i 



EXALLi 



SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 

DEVICES. 

INPUTS; 

OUTPUTS: R2 - TERMINATION INDICATOR (O-END OK TABLE, 1=E0T) 

REGISTERS: 

CALLS-. CMDAC.SEruP.EXSUB.CKHAE.NEXTU.FIRSTU.VFYDAT. 



LET Rl :- tfCMDSEQ 
WHILE CRD NE 4END DO 



JSR PC, SETUP 

WHILE NCNT LT NCNT1 DO 



JSP PCCMDAC 

IFR RANDOM NE 00 THEN 



ir CMDWRD EQ tfWRT THEN 
IFB VFYFLG EQ 00 THEN 



jINIT SEQUENCE TABLE POINTER. 

MOV OCMDSEQ, 

{WHILE THERE ARE CMOS IN THE SEQUENCE TA 

50006$: 

CMP (Rl).^EN 

BEQ 50007$ 

;G0 SETUP THE COMMAND BLOCK. 

! WHILE THERE ARE RECORDS REMAINING: 

50010$: 

CMP NCNT.NCN 

BGE 50011$ 

{STORE CMD ASCII IN ERROR MESSAGE. 

j IF IN RANDOM MODE: 

TSTB RANDOM 

BEQ 50012$ 

}IF CMD IS A WRITE THEN: 

CMP CMDWRD , # 

BNE 50013$ 

;IF DATA IS NOT TO BE VERIFIED THEN: 

TSTB VFYFLG 

BNE 50014$ 



LET RAN8 : 
LET RANS : 
LET BRFCNT 
LET BRFCNT 



RANB * RANS 
RANS * RANB 
• RANS 



GENERATE 

RANDOM 

LENGTH 



ADD 
ADD 



RANS, RAN 
RANB, RAN 



- BRFCNT CLP, BY LENMSK 



MOV RANS.BRF 
;MASK RANDOM LENGTH, 

BIC LENMSK. B 
IF BHFCNT LT #18. THEN ;D0 NOT ALLOW BYTE COUNT OF LESS 

CMP BRFCNT, 
BGE 50015$ 
LET BRFCNT :* $18, {CHANGE COUNT OF 0-17 TO 18. 

MOV n8..BRF 



ENDIF 

LET CMDPKT»CP.CNT 

FNDTF 

ENDIF 

ENDIF 

JSR PC, E* SUB 
JSR PC.CKHAf 
LET R2 : • #1 

JSR PC.FIRSRI 



50015$: 
- BRFCNT {MOVE BRF TO CMD PACKET, 

MUV BRFCNT, C 

50014$ 

50013$ 

50012$ 

{ISSUE CMD TO At.l , AWAIT IMS. CHECK i.TAU 
jCHFCK HALT AFTER EACH CMD U.Ali, 
(SET At I UNITS AT BOT/EOT . 

MOV tfl. k.: 

}F 1NU FIRST UNIT. 



I<6 



GLOBAl ARIAS 
CZTSHD.P11 



HACU1 30C 1046) 
06-APR-84 06:49 



3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

307!. 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3063 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3090 

3099 

3100 

3101 

3102 

31C3 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 



006662 
006662 
006662 
0066/0 
006672 
006672 
006700 
006702 
006702 
006710 
006712 
006712 
006714 
006714 
006714 
006714 
006716 
006716 
0C6716 
006724 
006726 
006734 
006736 

006736 
006736 
006740 
006740 
006740 
006740 
006740 
006744 
006744 
006746 
006746 
006746 
006752 
006754 
006 756 
006 756 
006756 
006756 
006762 
006762 
006770 
006 7 70 
0067 72 
006772 

006776 

006 7 76 
007000 
007000 
007000 
007002 



026527 
001426 

032737 
001406 

032765 
001001 

005002 



000411 



032^65 
001404 
032737 
001001 



005002 

004737 
000746 



020227 
001001 
000412 



005237 
013737 
000656 
004737 

000646 



005002 
000207 



002532 
000400 
000002 



000001 
000001 



015520 



000001 



005340 
003346 

014402 
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GLOBAL SUBROUTINES SECTION 



SEQ 00 75 



177777 
003346 
003426 



003426 
003346 



003352 



DEVTBLCR 
50017$ 



WHILE DEVTBLCR5) NE V>END DO {WHILE THERE ARE MORE UNITS: 

50016$: 

CMP 
BEG 
IF MOD. CO SETIN CMDWRD THEN j IF CMD IS REVERSE THEN; 

BIT OMOD.CO, 
BEQ 50020$ 
IF 0X0, BOT NOTSETIN E0TELG(R5) THEN j IF NOT AT BOT THEN: 

BIT 0X0. BOT, 
BNE 50021$ 
LET R2 ;* *0 {CLEAR EOT/BOT FLAG, 

CLR R2 
END IF 

50021$: 
ELSE j ELSE IF CMD IS NOT REVERSE: 

BR 50022$ 
50020$: 
IF 0X0. EOT NOTSETIN E0TFLGCR5) OR 4CMD.C0 NOTSETIN CMDVJRD THEN 

BIT *?XO.EOT, 
BEQ 50023$ 
BIT *CMO.CO, 
BNE 50024 $ 
50023$: 
j IF NOT AT EOT OR NOT A MOTION CMD THEN: 
i CLEAR EOT/BOT FLAP. 

CLR R2 



LET R2 : = 40 

ENDIF 
ENDIF 



JSR PC.NEXTU 
ENDDO 



IF R2 EQ til THEN 



j FIND NEXT U.IIT 



50024$: 
50022$: 



BR 

ENDIF 



EXARTN 



LET NCNT . = NCNT ♦ 01 
LET PCMDWD 2- CMDWRD 
ENDDO 

JSR PC.VFYDAT 

ENDDO 



BR 50016$ 
50017$; 

(IF ALL UNIT ARE AT EOT/BOT THEN: 

CMP R2.$l 
BNE 50025$ 

;RE T UWN WITH R2 - $1 . 

50025$: 

{UPDATE RECORD COUNT. 

INC NCNT 
;SAVE PREVIOUS COMMAND WORD. 

MOV CMDWRD, P 

BR 50010$ 
500115: 
S IF LAST CMD WAS A WRITE VERIFY. THEN oO 
jVERIM THE LAST N RECORDS OF DATA. 



LET R2 ;» QQ 

EXARTN; RTS PC 



BR 


5000b $ 


5000 7 $ : 




;SET NORMAL RETURN INDICATOR. 




CLR 


«2 


j RETURN, 





U: 



GLOBAL 


ARIAS 


MAO 11 


30( 1046) 


06-APF 


CZTSHD, 


Pll 06-APR-84 


08 1 49 




3122 










3123 










3124 










3125 










3126 










3127 










3126 










312* 










3130 










3131 


007004 


004737 


015452 




3132 


007010 








3133 


007010 








3134 


007010 


026527 


002532 


177777 


3135 


007016 


00146 4 *^ 






3136 


007020 








3137 


007020 


032737 


000400 


003346 


3136 


007026 


001421 






3139 


007030 








3140 


007030 


032765 


000002 


003426 


3141 


00 7036 


001014 






3142 


007040 








3143 


007040 


032765 


000001 


003426 


3144 


007046 


001406 






3145 


007050 








3146 


007050 


105737 


003450 




3147 


007054 


001402 






3143 


007056 


004737 


010326 




3149 


007062 








3150 


007062 








3151 


007062 








3152 


007062 


000402 






3153 


007064 








3154 


007064 


004737 


010326 




3155 


007070 








3156 


007070 








3157 


007070 








3158 


007070 








3159 


007070 








3160 


007070 


000435 






3161 


007072 








3162 


007072 








3163 


007072 


023727 


003354 


000002 


3164 


007100 


001011 






3165 


007102 


032765 


000002 


003426 


3166 


007110 


001405 






3167 










3168 


007112 








3169 


007112 


016537 


002544 


003436 


3170 


007120 








3171 


007120 


005077 


174312 




317^ 


007124 








3173 


007124 








3174 


007124 








3175 


00 7124 


032765 


000001 


003426 


31/6 


007132 


001404 






317V 


007134 


032737 


000001 


003346 
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SEQ 0076 



EXSUB 



SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 

ALL IN T ERRUPTS, AND CHECK ALL STATUS, 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: EXCUTE,GOWAIT,NEXTU,FIRSTU. 

JSR PC.FIRSTU {SET UP FOR FIRST UNIT, 

WHILE DEVTBLCP5) NE 4END DO jWHILE THERE ARE MORE DEVICES: 

50026*: 

CMP 
BEQ 
IF MOD. CO SETIN CMDWRD THEN j IF CMD IS REVERSE THEN: 

BIT 

BEQ 

IF 0XO.BOT NOTSETIN E0TFLGCR5) THEN {IF NOT AT B01 

BIT 
BNE 
IF 0X0. EOT SETIN E0TFLGCR5) THEN {BUT IF AT EOT 

BIT 



IFB ALLEOT NE tfO THEN 



JSR PC.EXCUTE 
ENDIF 



DEVTBLCR 
50027$ 

4K0D.C0, 
50030$ 

axO.BOT, 
50031$ 

OXO.EOT, 
50032$ 



ELSE 



JSR PC.EXCUTE 

END IF 



BEQ 

{AND ALL OTHER 1 "- AT EOT 

TSTB ALLEOT 

BEQ 50033$ 

j THEN EXECUTE F EV CMD 
{IF NOT ALL AT EOT, FREEZE UNITC 

50033$: 
j IF NOT AT BCT AND 

BR 50034$ 

50032$: 
;NOT AT EOT, EXEC REV CM 

50034$: 



ENDIF 
ELSE 



50031$: 
{ELSE IF CMD IS NOT REVERSE 

BR 
50030$: 
IF CMDLG EQ #2 AND tfXO.BOT SETIN E0TFLGCR5) THEN 

CMP 
BNE 
BIT 
BEQ 



50035$ 



CMDLG, 92 

50036$ 
tfXO.BOT, 



{CLEAR BAD SPOT COUNTS WHEN WRITING FROM 

MOV BTADDRtR 

CLR o)BTPT 



LET HTPT :« BTA0DRCR5) 

LET 8BTPT : * i>0 

ENDIF 

500*o$ : 
IF flXO.EOT NOT St UN E0TFLG(R5) OR OCMD.CO NOTSETIN CMDWRD THEN 

PP tfXO.tOT. 

^lT WU3.C0. 



M6 



GLOBAl ARtAS 

CZTSHD.P11 



3178 
3179 
3180 
3181 
318? 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 

3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 



007142 
007144 

007144 
007150 

007150 
007152 
007152 

007152 

007156 

007160 

007164 

007164 

007164 

007164 

007164 

007164 

007164 

007170 

007170 

007172 

007172 

007172 

007176 

007200 

007200 

007204 

007204 

007206 

007206 

007206 

007212 

007212 

007212 

007220 

007222 

00/222 

007230 

007232 

007232 

007240 

007242 

007242 

00 7250 

007252 

007252 

007256 

007260 

007264 

007264 

007264 

007264 

007266 

007266 

0072/2 

007272 



MACU1 30(1046) 
06-APR-84 08:49 

001003 
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SEQ 0077 



004737 
000405 



105737 

001402 
004737 



004 737 
000707 

105 737 
001403 

105037 

104424 



02652 7 
001450 

032737 
001421 

032765 

001014 

052/65 
001406 

105737 
C01402 
004737 



000402 
004737 



010326 

003450 
010326 



JSR PC.EXCUTE 
ELSE 



IFB ALLEOT NE 40 THEN 



BNE 50040$ 
50037$: 
5 IF NOT AT EOT OR NOT A NOTION CMD THEN: 
j ISSUE CMD TO TS04 



50040$ 



BR 



1STB 
BEQ 



50041$ 



ALLEOT 
50042$ 



015520 

003443 
003443 



JSR 
ENDIF 


PC 


EXCUTE 


ENDIF 






ENDIF 






JSR 
ENODO 


PC 


NEXTU 



IFB RPTFLG NE 40 THEN 



50042$ 
50041$ 

50035$ 

{FIND NEXT UNIT IN TEST CYCLE. 

BR 50026$ 
50027$; 
;IF REPORT HAS BEEN REQUESTED THEN: 



004737 015452 









TSTB 


RPTFLG 








BEQ 


50043$ 


LET RPTFLG ;B= 


#0 


jCt.R THE K.AG, 


CLRB 


RPTFLG 


OORPT 




jPRINT THE PERFORMANCE 


REPORT. 
TRAP 


C$DRPT 


ENDCF 




50043$- 






JSR PC.FIRSTU 




;SF, r IP FOR FIRST UNIT 







002532 177777 

000400 003346 

000002 003426 

000001 003426 

003450 
010636 



UHILE DEVTBLCR5) NE 4END DO 5 WHILE THERE ARE MORE DEVICES; 

50044$; 

CMP 
BEQ 
IF 4MQD.C0 SE1IN CMDWRD THEN ; IF CMO IS REVERSE THEN: 

BIT 



IF 4X0. BOT NOTSETIN E0TFLGCR5) THEN 
IF 4X0. EOT SF.TIN E0TFLGCR5) THEN 
IFB ALLEOT NE 40 THEN 



JSR PC.GOWAIT 
FNDIF 



DEVTBLCP 

50045$ 

4M0D.C0. 
50046 « 



010636 



ELSE 



JSR PC.GUWAiT 
ENDIF 



BEQ 
{IF NOT AT BOT 

BIT 4X0. BOT. 

BNE 5004 7 $ 

;BUT IF AT EOT 

BIT 4X0. EOT, 

BEQ 50050$ 

{AND ALL OTHERS AT EOT 

TSTB ALLEOT 

BEQ 50051$ 
; THEN WAIT FOR CMO END 
{IF NOT AIL AT EOT, DC N 
50051$; 
;N0T AT BOT, AND NOT AT 

BR 50052$ 
50050$: 

{WAIT FOR INT.CH 

5^052 3 ; 



N6 



GuOBAi. 


AREAS 


MACU1 


30(1046) 06 -AP 


CZTSHD, 


Pll 06-APR-34 


08i49 


3234 


0072 72 






5255 


00 72 72 






'5256 


007272 






3237 


007272 


000-,20 




3238 


00 7274 






3239 


007274 






3240 


0072 74 


032765 


000001 003*26 


3241 


007302 


001404 




3242 


007304 


032737 


000001 003346 


3243 


007312 


001003 




3244 


007314 






324 b 








3246 


C07314 


004737 


010636 


324 7 


00/320 






3248 


007320 


000405 




324 Q 


00/322 






3'^50 


007322 






3251 


00 7322 


105737 


003450 


325c 5 


007326 


001402 




3253 


007330 


004737 


010636 


3254 


007334 






3255 


007^34 






3256 


007 334 






3257 


007334 






3258 


00 7334 






3259 


0C7334 






3260 


007334 


004 737 


015520 


326.1 


007340 






3262 


00 7 340 


000724 




3263 


007342 






3264 


007342 


000207 
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SEQ 0078 



ENDIF 
ELSE 



50047$: 
iELSE IF CMD IS FORWARD: 

BR 50053$ 
50046$: 
IF ttXO.EOT NOTSETIN E0TFLGCR5) OR tfChu.CO NOTSETIN CMDWRD THEN 

BIT OXO. EOT, 
BEQ 50054$ 
BIT tfCMD.CO, 
BNF. 50055$ 
50054$. 
jIF NOT AT EOT OR NOT A MOTION CMD THEN: 
{WAIT FOR INT, CHECK STATUS. 



JSR PC.GOWAIT 
ELSE 



IFB Al.LEOT NE ,70 THEN 



50055$ 



OR 



TSTB 
BEQ 



50056$ 



ALlEr« 
5005 7 $ 



JSR 
ENDIF 


PC 


GOWAIT 


ENDIF 






ENDIF 






JSR 

FNDDO 


PC 


NEX1U 



50057$: 

50056$: 

50053$: 
{FIND NEXT UNIT IN TEST CYCLE. 



RTS PC 



{RETURN. 



50045$: 



BR 



50044$ 



\\{ 



GLOBAl 


ARt AS 


MACUl 


301 104b) 


CZTSHD. 


Pll 06-APR-fcl4 


08; 49 


32t>5 








3266 








326 * 








3268 








3269 








32 70 








3<Vl 








32 72 








327? 


007344 






3274 


007344 


013704 


003346 


3275 


007350 


004 737 


007416 


3276 


007354 


112337 


005706 


3277 


007360 


112337 


005 707 


32 78 


00 7364 


111337 


005710 


3279 


007570 






3280 


007370 


015704 


003352 


3281 


007374 


004737 


007416 


3282 


007400 






328 3 


007400 


112337 


006022 


3c84 


007404 






3285 


007404 


112337 


006023 


3286 


007410 






3287 


007410 


111557 


006024 


3288 


007414 


000207 




3289 








3290 








5291 








3292 








3293 








3294 








3295 








3296 








3237 








3298 








3299 


007416 






3300 


007416 


005003 




3301 


007420 






3302 


007420 






3303 


007420 


026304 


003562 


3504 


007424 


001403 




3 305 


007426 






3 506 


007426 


062703 


000002 


3307 


0074 32 






3306 


0074 32 


00077? 




3509 


0074 34 






3510 


0074 34 






3311 


007454 


010504 




3512 


007456 






3313 


007436 


006205 




3314 


00 7440 


000240 




5315 


00 7442 


060403 




3 516 


00 7444 


062 703 


003650 


3317 


00 7450 


000207 





06-APR-84 08;51 PAGE 81 

GLOBAL SUBROUTINES SECTION 



SEQ 0079 



THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 

COMMAND IN THE STANDARD ERROR MESSAGE, ON ENTRY LOCATION CMDWRD 

CONTAINS CURRENT CMD AND LOCATION PCMDWD CONTAINS PREVIOUS CMD. 

INPUTS i 

OUTPUTSt 

REGISTERS: R3, R4, 

CALLS: GCMDA 



CMDAC:: LET R4 ;• CMDWRD 

JSR PC, GCMDA 

MOVB CR3)*,STAER1»2 

MOVB CR3)»,STAER1»5 

MOVB (R3) # STAER1*4 

LET R4 s- PCMOWD 

JSR PC, GCMDA 

LET 5TAER7»?4 :B- (R5)» 

LET STAER7»25 :B- (R3)* 

LET STAGR7 26 :B- CR3) 

RTS PC 



MOV 



|R4 ■ CMD BINARY, 

iGET CMO ASCII. 
I MOVE CMD ASCII 

j INTO MSG. 

,R4 • PREVIOUS CMD BINARY. 

MOV 
I GET CMD ASCII. 
,MOVE CMD ASCII 

MOVB 



CMDWHD.R 



I 



» INTO MSG. 



MOVB 
MOVB 



PCMDWD, P 

CR3)*,ST 
(R3)»,ST 



jRETURN, GO EXECUTE NEXT FUNCTION, 



(R3),STA 



SUBROUTINE TO riNO THE ASCII EQUIVILENT OF THE COMMAND IN R4 

ADDRESS OF ASCII 1ST UORO IS RETURNED IN R3. 

INPUTS; R4 - PRESENT CQMMANO WORD. 

OUTPUTS; R3 - ADDRESS OF PRESENT COMMAND ASCII. 

REGISTERS: 



CALLS: 
GChOAi: LET R3 :• 00 

WHILE CMDTBLCRM NE R4 00 



LET 1 


43 : - R3 


o 


ENDDO 






If! R4 


{ - R3 




il r R3 


f R3 SHIFT 


NOP 
ADO 
ADD 
RTS 


R4.R* 

aCMQASC 
PC 


,R3 



j INI i CMD TBL POINTER. 

CI R 
I UNTIL CURRENT CMO IS FOUND: 

50060$: 

CMP 

BEQ 
I SEARCH CMD TABLE, 

ADD 



50061$: 



BR 



MOV 



R3 

CHDTBUR 
5006 1 $ 

02, R 5 

50060$ 

R3.R4 



»POINT TO ASCII FOR THAI COMMAND 

ASR R3 



, RE TURN, 



c/ 



GLOHAl 


Am AS 


MAO 11 


50l 104 tO 


06 APF 


CZTSHD. 


Pil Ob-APR-84 


08 1 49 




3318 










3319 










5320 










3321 










3322 










3323 










5324 










3325 


007452 








3326 


007452 


005037 


003554 




3327 


007456 


01213? 


002510 




3328 


007462 


011137 


002516 




3329 


00746o 


011137 


005544 




3330 


007472 


013702 


002310 




3331 


00 74 76 


042702 


177740 




3332 


007502 


0102C3 






3333 


007504 


162^03 


000010 




3334 


007510 


001003 






3335 


007512 


011137 


002512 




3336 


00 7516 


000461 






333; 


007520 








3336 


007520 


025727 


002310 


100011 


3339 


00?52t 


001003 






3340 


007530 








3341 


007530 


01273? 


000002 


003354 


3542 


007536 








3343 


007536 








3344 


007536 


010203 






3345 


CO 7540 


162703 


000001 




334o 


00 7544 


00101/ 






3347 


007546 


015737 


003556 


002312 


3348 


007554 








3349 


007554 


032 73/ 


000400 


002310 


3350 


00 7562 


001404 






3351 


00756' 








3352 


007564 


012737 


000004 


003354 


3355 


007572 








3354 


007572 


000403 






3355 


007574 








3356 


007574 








3357 


007574 


012737 


000006 


003354 


3358 


00/602 








3359 


00 7602 








3360 


007602 


000427 






3361 


00 7604 


010205 






3562 


007606 


162703 


000004 




3363 


007612 


001011 






3364 


007614 








3365 


00 7614 


012737 


002442 


002512 


3566 


00 7622 


012757 


000010 


002316 


3367 


007650 








3368 


00 7630 


01113/ 


002450 




3 569 


00 7634 


000412 






3370 


00 76 56 


010205 






3371 


00 7640 


162703 


000006 




35 7,-' 


00 7644 


ooiooe 






3375 


007646 


012737 


000020 


002316 
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SUBROUTINES 



SECTION 



2$: 



1$: 



Alt 



THIS SUBROUTINE LOADS THE TS04 
EN1RY IN THE SEQUENCE TABLt . 
INPUTS: 



OUTPlM 


Si 


REGIS 


ERS: R2, R3. 


CALLS s 


GENPAT, 


LET CMDLG :- 00 


MOV 


(Rl)*. CMOPKT 


MOV 


(Rl),CMOPKT»CP.CNT 


MOV 


lRl),BRFTNf 


MOV 


CMOPKT # R2 


BIC 


*NCM0.C,R2 


MOV 


R2.R3 


SUB 


0CMD.C3.R3 


BNE 


21 


MOV 


(Rl), CMOPKT >2 


BR 


3$ 


IF CMOPKT EQ OWTM THEN 


LET 


CMDLG { * 92 


ENDIF 





MOV R2.R3 

SUB *CMD.CO t R3 

BNE 1$ 

MOV DATARD , CMDP* T »CP . ADL 

IF OMOD.CO SETIN CMOPKT THEN 



LET CMDLG t ■ 04 
ELSE 

IE T CMDLG !• 06 

ENOIF 

HR 31 

MOV R2.R3 

SUB 0CMD.C2.R5 

BNE 4 i 

ItT CMOPKT »CP, ADL 5- 9SCHBK 

MOV ftSCHCN I , CMPPK T * CP , CN T 
LET SCHBK.6 :■ (Rl) 

BR 31 

MOV P2 R3 

SUB «CMt)*,Cl!CMt),C2 t R3 

BNF 5$ 

MOV OOIACNT.CHOPKNCP^CNT 



SEQ 0060 



COMMAND PACKET FROM ONE 



iCLR CMD LOGGING CODEC DISABLES LOGGING) 

CLR CMDLG 
i LOAD THfc COMMANO WORD, 
I LOAD THE BYTE/RECORD/HLE COUNT, 
» SAVE BRF FOR THIS COMMAND. 
jGET CMD. 

t CLR ALL BUT CMD BITS. 
jSAVE IT TWICE. 
jPOSITICN COMMANO? 
iBR IF NOT, 
iMOVE BPCR IN 2ND PKT WORD FOR POSITION 

j IF CMD IS A WRITE TAPE MARK THEN: 

CMP CMOPKT,* 

BNE 50062* 
iWTM LOGGING CODE IS 2. 

MOV *2,CM0LG 

50062$; 

jIS IT A READ? 

jBR IF NOT. 

jir SO, LOAD THE BUFFER ADOR . 

j IF CMD IS A READ REV THEN: 

BIT •HOO.CO, 
BEQ 50065* 
{LOGGING CODE IS 4. 

MOV »4, CMDLG 
I ELSE • IF CMO IS A READ FWD: 

BR 50064 $ 
50063$: 
l LOGGING CODE IS 6. 

MOV <K>. CMDLG 

50064 % : 
I CONTINUE. 
llS IT 

|A SET CHARACTERISTICS CMC? 
iBR IF NOT , 
I SET UP AOR LO FOR SET CHAR, 

MOV dSCHBK , C 
I SET BUFFER EXTENT 

jSTORE CHARACTERISTIC CODE IN SCH Bi.OC'v . 

MOV (Rl),SCH 
iCONTINUt. 
llS IT 

jA DIAGNOSTIC ^DTA^) CMD.' 
i BR If NO! . 
tLQAQ BUFFER EXTENT, 



)/ 



GL0BA1 


ARt AS 


MAO U 


30vi04b) 


Ob -API 


CZTSHO. 


Pll 06 APR 84 


08 i 49 




55/4 


007654 


012737 


003334 


002312 


357?. 


007662 


005 721 






33* 7 6 


007664 








3377 


007664 


012137 


003342 




3378 


007670 








3379 


007670 


005037 


003340 




3330 


007674 


012137 


003374 




3381 


0(17 700 


010203 






7 382 


007 702 


162703 


000005 




3383 


007 706 


001010 






3384 


007 710 


013737 


003334 


002312 


3385 


007716 


004 737 


010030 




3386 


007722 








3387 


007722 


012737 


000002 


003354 


3388 


007 730 








3389 


007730 


032737 


000100 


002310 


3390 


007736 


001407 






3391 


007740 








339? 


00 7740 


112737 


000001 


003442 


3393 


007746 


042737 


000100 


002310 


3394 


007754 








3395 


007 754 


000402 






3396 


007 756 








3397 


007 756 








3398 


007756 


105037 


003442 




3799 


007762 








3400 


00 7 762 








3401 


007762 








3402 


007762 


013737 


003346 


003352 


3403 


007770 








3404 


007 7 70 


013737 


002310 


003346 


3405 


007776 








3406 


007776 


105737 


003444 




3407 


010002 


001403 






3408 


010004 








3409 


010004 


052737 


010000 


002310 


3410 


010012 








34H 


010012 








3412 


010012 


042737 


004000 


002310 


3413 


010020 








3414 


010020 


013737 


002310 


003350 


3415 


010026 


000207 
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35: 



5$; 



MOV ODIABLK .CMDPKT »CP . ADL 

TST (Rl)» 

LET NCNT1 ;- (Ri)» 

LET NCNT j- 00 

MOV (Rl)* ,PATERN 

MOV R2,R3 

SUB OCMD.CO!CMD.C2,R3 

BNE 5$ 

MOV DAT AWT , CMDPKT *CP . ADL 

JSR PC.GENPAT 

LET CMDLG : * 02 

IF OVFY.C SETIN CMDPKT THEN 



LET VFYFLG :B- 01 

OVFY.C, CMDPKT 



BIC 
ELSE 



LET VFyFLG jB» 00 
ENDIF 

I FT PCMDWD j- CMDWRD 
LET CMDURD t- CMDPKT 
IFB SWBFLG NE 00 THEN 

LET CMDPKT :- CMOPKT SfcT.B^ 

CNDIF 

BIC OBRf . C, CMDPKT 

LET CMOS A V i- CMOPKT 

RTS PC 



SEQ 0081 



jl.OAD BUFFER ADR LOW. 

iPOINT TO N (NUMBER Of TIMES TO EXECUTE 

jSAVE NUMBER OF OPERATIONS 

MOV CR1)»,NC 
j CLEAR OPERATION COUNTER. 

CLR NCNT 
l SAVE PATTERN CODE FOR CURRENT CMD. 
iIS IT 
lA WRITE? 
jPR IF NOT. 

lLOAD WRITE BUFFER LO ORDER. 
}G0 GENERATE THE WRITE PATTERN. 
{WRITE. LOGGING CODE IS 2. 

MOV 02, CMDLG 
j IF DATA VERIFICATION IS REQUIRED: 

BIT OVFY.C. C 

BEQ 50065$ 
iSET VERIFY FLAG. 

MOVB Ol.VFYFL. 
tCLEAR VERIFY BITCNOT USED BY HARDWARE). 
, IF DATA VERIFICATION IS NOT REQUIRED: 



BR 


50066$ 


50065$: 




tCLR VERIFY FLAG. 




CLRB 


VFYFLG 


50066$: 




jSAVE PREVIOUS CMD WORD, 




MOV 


CMOWRD.P 


j SAVE PRESENT CMO WORD. 




MOV 


CMOPKT, C 


j IF SWAP BYTES IS ENABLED: 




TSTB 


SWBFLG 


BEQ 


50067$ 


OSWB.C j SET SWAP BIT IN COMMAND, 




BIS 


OSWB.C, C 



50067$: 
tCLR BRF BIT (INTERNAL ONL>). 
jSAVE 1ST WORD OF COMMAND PACKET, 

MOV CMOPKT. C 
iRETUftN* 



( :: y 



GLOBAL 


ARFAS 


MACUl 


30( 1046 


CZTSHD. 


Pll 06-APR-64 


08j49 


3416 








3417 








341S 








5419 








3420 








3421 








3422 








3423 


010030 






3424 


010030 


013703 


003374 


342b 


010034 


006303 




3426 


010036 






3427 


010036 


013704 


003344 


3428 


010042 


005204 




3429 


010044 






3430 


010044 


042704 


000001 


3431 


010050 






3432 


010050 


162704 


000002 


3433 


010054 






3434 


010054 


013702 


003334 


34 35 


010060 


062702 


000002 


3436 


01 006 A 


004773 


010072 


34 37 


010070 


000207 




3438 








3439 








3440 








3441 








3442 


010072 


010114 




3443 


010074 


010152 




3444 


010076 


010172 




3445 


010100 


010202 




6446 


010)02 


010226 




3447 


010104 


010240 




3448 


010106 


010252 




3449 


010110 


010272 




3450 


010112 


010324 




3451 








3452 








3453 








3454 








3455 


010114 






3456 


010114 


012/03 


000400 


3457 


010120 






3458 


010120 


162704 


000002 


3459 


010124 


100411 




3460 


010126 






3461 


010126 


010322 




3462 


010130 






3463 


010130 


062703 


001002 


3464 


010134 






3465 


010134 


020327 


001000 


3466 


010140 


001002 




346 7 


010142 






3468 


010142 


012703 


000400 


3469 


010146 






34 70 


010146 






3471 


010146 


000/64 
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SEQ 0082 



THIS SUBROUTINE SETS UP AND CALLS 1H£ APPROPRIATE SUBROUTINE TO GENERAT 
THE OESIREO PATTERN FOR THE WRITE AND WRITF/VERIFy COMMANDS. 
INPUTS; 
OUTPUTS: 

REGISTERS: R2, R3, R4 , 
CALLS: PATRO ■ PATR7 



GENPATj: LET R3 j- PATERN SHIFT 1 



jSETUP PATTERN ROUTINE POINTER 



LET R4 :« BRFCNT ♦ 01 jSET LENGTH OF WRITE BFR 

I ROUNDED UP TO NEXT WORD 
iWITH FIRST WORD RESERVED 
j FOR RECORD COUNT 



LET 


R4 


:- R4 CLR.BY 01 


LET 


R4 


: - R4 -02 


LET 


R2 


;• DATAWT ♦ 02 


JSR 
RTS 




PC.9PATTBLCR3) 
PC 



MOV 
ASL 


PATERN, R 
R3 


MOV 

INC 


BRFCNT, R 
R4 


BIC 


01. R4 


sue 


02, R4 


MOV 

ADD 


DATAWT.R 
02.R2 



{GO GENERATE THE APPROPRIATE PATTERN. 
;RETURN TO SETUP SUBROUTINE. 

jTS04 WRIT': PATTERN LOOKUP TABLE. USED TO JSR TO THE 
{CORRECT DATA PATTERN GENERATING ROUTINE. 



PATTBL: PATRO 
PATR1 
PATR2 
PATR3 
PATR4 
PATR5 
PA r R6 
PATR7 
PATR8 



{INCREMENTING PATTERN, - 377, 



PATRO: : 


LET R3 :- 0400 








MOV 


0400, «3 


1$: 


LET R4 :- R4 - 02 

BMI ?.% 

LET CR2)» : - R3 

LIT R3 : • R.I * 01002 


i DECREMENT WORD COUNT. 

;BR IF DONE. 
{STORE DATA WORD. 

{UPDATE PATTERN. 






SUB 

MOV 
AOD 


02. R4 

R3,tR2^ 

01002. KS 




If RS EQ #1000 THEN 


j IF PATTERN HAS WRAPPED 


AROUND 


THEN: 














CMP 


R5 .01000 












BNt 


5W0t 




LET R3 j" 0400 


ilNIT THE PATTERN AGAIN, 


















MOV 


04 00, R 3 




ENDIF 




500 


'0$: 








BR 15 


;00 IT AGAIN. 











GLOBAL 


AREAS 


MAO 11 


30(1046) 


CZTSHD. 


Pll 06-APR-84 


08} 49 


34 72 


010150 


000207 




347? 








34 74 








34 75 








34 76 


010152 


012703 


177777 


3477 


010156 






3478 


010156 


162 704 


000002 


34 79 


010162 


100402 




3480 


010164 


010322 




3481 


010166 


000773 




348c' 








3483 


010170 


000207 





F 7 
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2$; RTS PC 

{ALL ONE'S PATTERN 



PATR1; 5 MOV 
ZROPATj LET R4 

BMI 
MOV 
BR 



IS: 



RTS 



1,R3 

« «4 . #2 

1$ 

R3,CR2)* 
2R0PAT 

PC 



Sf Q 0083 



jRETURN. 



I ALL ONES PATTERN} . 
j DECREMENT BYTE COUNT. 

SUB 
{DONE?, BR IF YES. 

j IE NOT LOAD NEXT BYTE WITH PATTERN. 
i DO IT AGAIN, 

j RE TURN, 



tf2,R4 



G7 



GLOBAL ARfrAS 
CZTSHD.P11 



MAC: 11 30(1046) 
06-APR-84 08:49 
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SEtt 0084 



3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

350? 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3.25 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

35 56 

3537 

3538 



010172 
010174 



010202 
01C206 
010206 
010212 
010214 
010216 
010220 
010222 
010224 



010226 
010232 
010236 



010240 
010244 
010250 



010252 
010256 
010256 
010262 
010264 
010266 
010270 



010272 
010272 
010276 
010300 
010306 
010314 
010320 
010322 



005003 

004 737 010156 

000207 



012703 000401 

162704 000002 

100404 

010322 

006303 

005503 

000771 

000207 



012703 177-76 
004737 010206 
000207 



012703 125125 
004737 010156 
000207 



012703 177400 



162704 
100<02 
010322 
000773 
000207 



162704 
100411 
063737 
063737 
013 72? 
000/64 
000207 



PATR2: : 



PATR3; : 
WLKZRO; 



H: 



PATR4: : 



PATR5; : 



000002 



PATR6: : 



2$: 



jALL ZEROES PATTERN. 



CLR 
JSR 
RTS 



R3 

PC.ZROPAT 

PC 



iCLR PA/TERN REGISTER, 
{GO GENERATE IT. 
{RETURN. 



{ONE BIT WALKING FROM R TO L IN A FIELD OF ZEROES. 



000002 

003362 
003360 
003362 



003360 
003362 



MOV 
LET R4 

BMI 

MOV 

ASL 

ADC 

BR 

RTS 



0401, R3 
- R4 - i>? 

1$ 

R3.CR2)* 

R3 

R3 

WLKZRO 

PC 



lINIT PATTERN REGISTER. 
{DECREMENT WORD COUNT. 

{BR IF DONE. 

{LOAD DATA. 

{SHIFT PATTERN. 

{ADD CARRY BACK INTO PATTERN 

jDO IT AGAIN. 

{RETURN. 



sue 



*2,R4 



{ZERO BIT WALKING FROM R TO L IN A FIELD OF l'S. 



MOV 0177376, R3 
JSR PC, WLKZRO 
RTS PC 



jINIT PATTERN REGISTER. 
iGO GENERATE j IT. 
{RETURN. 



{ALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
{COMPLEMENTED. 



MOV 0125125, R3 
JSR PC.ZROPAT 
PTS PC 



,INIT PATTERN REGISTER. 
iGO GENERATE IT. 

{RETURN. 



{ALTERNATING BYTES OF 000 AND 377. 



MOV 
LET R4 

BMI 

MOV 

BR 

RTS 



0177400, R3 
■ R4 - 02 

25 

R3,(R2)> 

1$ 

PC 



lINIT PATTERN REGISTER, 
{DECREMENT WORD COUNT. 

{BR IF DONE, 
{LOAD DATA. 
{DO IT AGAIN, 
{RETURN. 



SUB 



02, R4 



RANDOM PATTERN GENERATOR 



PATR7; : LET R4 5 » R4 



02 



BMI 


GIT 


ADO 


RANS.RANB 


ADO 


RANB.RANS 


MOV 


RANS.CRjn* 


BR 


PATR7 


RTS 


PC 



010324 000207 



G t T : 

{ NO PATTERN GENERATION, 

PATR8: : RTS PC 



{DECREMENT WORD COUNT 

}BR IF DONE. 

{GET NEW O. 
iSAVF. % 

j CONTINUE. 
{RETURN 

i RE TURN. 



SUB 



02. R4 



1-1 7 



Gl OHAl 


ARt AS 


MAC^ 11 


30(1046) 06 APF 


CZTSHD. 


PI I Ob -APR -84 


08:49 


3539 








3540 








3541 








3542 








3543 








3544 








3545 








3546 


010326 






354 7 


010326 


012737 


177777 003364 


3540 


010334 






3549 


010334 






3550 


010334 






3551 


010334 


005337 


003364 


3552 


010340 






3553 


010340 


0C5737 


003364 


3554 


010344 


001C11 




3555 


010346 


004 737 


011224 


3556 


010352 






355? 


010352 


104455 




3558 


01035* 


000002 




3559 


010356 


004271 




3560 


010360 


005372 




3561 


010362 


004737 


015554 


3562 


010366 


0005?2 




3563 


010370 






3564 


010370 






3565 


01C370 






3566 


010370 


032775 


000200 002462 


356/ 


010376 


001756 




3568 


010400 






3569 


010400 


023727 


003346 140004 


3570 


010406 


001022 




3571 


010410 






35 7? 


010410 


010537 


003400 


3573 


010414 


004 73? 


015452 


3574 


010420 






3575 


010420 






3576 


010420 


026527 


002532 177777 


3577 


010426 


001405 




3578 


010430 


004 737 


0U170 


3579 


010434 


004 737 


015520 


3580 


010440 






3581 


010440 


000767 




3582 


010442 






3583 


010442 






3584 


010442 


013705 


003400 


3585 


010446 






3586 


010446 


016537 


002502 OQ2448 


358 7 


010454 






3588 


010454 






3589 


010454 






3590 


010454 


016503 


002502 


3591 


010460 






3592 


010460 


005002 




3593 


010462 






35<M 


010462 
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1EQ 0085 



THIS SUBROUTINE INITIATES TS04 

AND CHECKS FOR TS04 RESPONSF . 

INPUTS: 

OUTPUT Is 

REGISTERS: 

CALLS: 



R2 R3 

DROPU, *M0VMSG, 



EXCUTE: : LET TIME I 
REPEAT 

LET TIME1 



0-1 



TIME1 - 01 



COMMAND EXECUTION 

FIRSTU, NEXTU, USSR. 
jINir TIMEOUT COUNTER. 
IWAIT - 



IF TIME1 EQ 00 THEN 



JSR PC.MOVMSG 

ERRDF 02.NSSRM.STAERM 



JSR PC.DROPU 
8R EXCRTN 
ENDIF 

UNTIL OTS.SSR SETIN 6)TSSR(R5) 



IF CMD IRD EQ OSCH THEN 



LET R5SAVE :• R5 

JSR PC, FIRSTU 

WHILE DEVTBLCR5) NE GENU UU 



JSR PC, USSR 
JSR PC. NEXTU 
ENDDO 



LET R5 : - R5SAVE 

LET bCHBK :■ MSUPKA(RS) 
ENDIF 
LET R3 :- MSGPKACR51 

LET R2 : - 00 

WHILE R2 NL OMSGCNT 00 



MOV 



O-l.TIME 



50071$: 




(UPDATE TIMEOUT COUNTER, 




DEC 


TIME1 


I IF TIMED OUT: 




TS T 


TIME1 


BNE 


50072$ 


iMOVE CURRENT PACKET MSG. 




j REPORT TS04 NOT READY 




TRAP 


CSERDF 


.WORD 


2 


.WCRD 


F4SSRM 


.WORD 


STAERM 



i DROP THE UNIT. 
j RE TURN. 

50072$: 
jWAIT UNTIL DEVICE IS READY. 

BIT OTS.SSR, 
BEQ 50071$ 
j IF WE ARE DOING A SET CHAR CMD TH€N: 

CMP CMOWRD.O 
BNE 50073$ 
iSAVE CURRENT DEVICE POINTER. 

MOV R5.R5SAV 
jFIND FIRST UNIT. 

50074$: 

CMP DEVTBLCR 
BEQ 50075$ 

i WAIT FOR UNIT READY OR TIME OUT, 

l FIND NEXT UNIT. 

BR 50074$ 
50075$: 
{RESTORE CURRENT DEVICE POINTER. 

MOV R5SAVE.R 
{SET UP ADR OF MSG PKT IN SCH BLOCK, 

MOV MSGPKACR 

500/3$: 

jADR OF THIS UNIT'S MSG PACKET. 

MOV MSGPIOU R 
jCLR COUNTER. 

F L R R - % 
j WHILE THERE ARE MORt LUIAT10NS* 

500 ?bii 



1.7 



GLOBAl 


ARFAS 


MACU1 


30(1046) 


06 -APR 


84 08 


C2TSHD. 


PU 06-APR-84 


08:49 




GLOBAL 


3595 


010462 


02022 7 


000016 






3596 


010466 


001.405 








3597 


010470 










3598 


010470 


012723 


17/777 






3599 


C10474 










3600 


0104 74 


062702 


000002 






3601 


010500 










360,? 


010500 


000770 








3603 


010502 










3604 


010502 


105737 


002210 






3605 


010506 


001023 








3606 


010510 










3607 


010510 


126527 


003416 


000001 




3608 


010516 


003412 








3609 


010520 










3610 


010520 


017537 


002462 


003402 




3611 


010526 










3612 


010526 


104455 








3613 


010530 


000017 








3614 


010552 


004460 








3615 


010534 


005372 








3616 


010536 


004737 


015554 






3617 


010542 


000434 








3618 


010544 










3619 


010544 










3620 


010544 










3621 


010544 


005065 


003416 






3622 


010550 


052737 


000200 


002310 




3623 


010556 










3624 


010556 


105737 


003415 






3625 


010562 


001005 








3626 


010564 










3627 


010564 


005265 


003324 






3628 


010570 










3629 


010570 


016577 


003324 


172536 




3630 


010576 










3631 


010576 










3632 


010576 


012775 


002310 


002452 




3633 












3634 


010604 










3635 


010604 


032775 


000200 


002462 




3636 


010612 


001410 








3637 


010614 


004737 


011224 






36 58 


010620 










3639 


010620 


104455 








3640 


U 622 


000003 








3641 


010624 


00420/ 








3642 


010626 


005372 








364 3 


010630 


004 737 


015554 






3644 


010634 










3645 


010b34 










3646 


010634 


00020 7 
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1$: 



LET CR3)» j- tt-1 
LET R2 }* R2 ♦ 02 

ENDDO 



TSTB DINT 

BNE 1 $ 

IFB INTFLGCR5) GT 01 THEN 



LET TSSREG :- STSSRCR5) 
ERRDF 015, TOCMM, STAERM 



JSR PC.DROPU 
BR EXCRTM 
ENDIF 



LET INTFLGCR5) 



i>0 



BIS OIE.C.CMDPKT 
IFB ERRREC EQ t>0 THEN 



LET RECCNTCRS) ;■ RECCNUR5) * 
LET 30ATAWT :« RECCNUR5) 
END IF 

MOV OCMDPK T . BTSDBC R5 ) 
IF 4TS.SSR SETIN 3TSSRCR5) THEN 



JSR oc.MOVHSG 
ERRD^ tf3,T0ERM, STAERM 



JSR PC.DROPU 
ENDIF 



SEQ 0086 

CMP R2.0MSGC 

8EQ 50077$ 
jINIT THE MSG PACKET WITH ALL l'S 

MOV 0-1.CR3) 
{UPDATE COUNTER. 

ADO #2,R2 

BR 50076$ 
500/7*: 

{ARE INTERRUPTS DISABLED. 
5 BR IF YES. 

j IF MORE THAN ONE INTERRUPT HAS OCCURED: 

CMPB INTFLGCR 
BLE 50100$ 
tFREEZE THE CURRENT STATUS REG F 

MQV STSSRCR5 
jREPORT TOO MANY INTERRUPTS. 

TRAP C$ERDF 
.WORD 15 
.WORD TOOMM 
.UIORD STAERM 
{DROP THE UNIT 
iRETURM - UNIT HAS BEEN DROPPED. 

50100$: 
; CLR INTERRUPT FLAG FOR THIS DEV. 

CLR INTFLGCR 
{SET INT ENABLE BIT. 
jIF NOT RETRYING 

TSTB ERRREC 

BNE 50101$ 
#1 

INC RECCNTCR 
{THEN UPDATE REC COUNT TO URITE IT ON TA 

MOV RECCNTCR 

50101$: 
{LOAD TSDB WITH CMOPKT ADDRESS 
{THIS INITIATES COMMAND EXECUTION. 
{IF READY DID NOT DROP THEN: 

BIT 0TS.SSR. 
BEQ 50102$ 
{MOVE CURRENT MESSAGE PACKET TO COMMON 
{REPORT NO TS04 RESPONSE. 

TRAP C$ERDF 
. WORD 3 
.WORD TOfcRM 
.WORD STAERM 
jDRQP THE UNIT 



EXCRTN: RTS 



PC 



{RETURN. 



5010,?*: 



J/ 



ul.OBAl 


ARt AS 


MACUl 


30t 104o) 


06-APF 


CZTSHl). 


Pll 06-APR-84 


08:49 




3b4: 










3648 










3649 










3650 










3651 










3652 










3653 










3654 










3655 










3656 


01063*"- 








3657 


010636 


026527 


002532 


1777/4 


3658 


010644 


001003 






3659 


010646 


000137 


011152 




3660 


010652 








3661 


010652 


000400 






3663 


010654 








3663 


010654 








3664 


010654 








3665 


010654 








3666 


010654 


012737 


177777 


003364 


3667 


010662 








3668 


010662 








3669 


010662 








3670 


010662 


104422 






3671 


010664 








3672 


010664 


023727 


003346 


102010 


3673 


010672 


001014 






3674 


010674 








3675 


0106 74 


012727 


000012 




3676 


010700 


000000 






3677 


010702 


013727 


002116 




3678 


010706 


000000 






3679 


010710 


005367 


177772 




3680 


010714 


001375 






3681 


010716 


005367 


177756 




3682 


010722 


001367 






3683 


010724 








3684 


010724 








3685 


010724 








3686 


010/24 


023727 


003346 


105010 


3687 


010732 


001404 






3688 


010734 


023727 


003346 


105410 


3689 


010742 


001014 






3690 


010744 








3691 


010744 








3692 


010744 


012727 


000014 




3693 


010750 


000000 






3694 


010752 


013727 


002116 




3695 


010756 


oocooo 






3696 


010/60 


005367 


W7772 




369 7 


010764 


001375 






3698 


010766 


005367 


177756 




3699 


010/72 


001367 






3700 


010/74 








3/01 


010 7/4 








3 702 


010774 
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SEQ 0087 



i 



THIS SUBROUTINE WAITS FOR THE TS04 INERRUPT OR DONE BIT TQ SET AND ALLOW 

OPERATOR TO TRANSFER CUNROL TO THE SUPERVISOR. 

UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS, 

LOG BY T ES AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASARr, 

INFUTS: 

OUTPUTS; 

REGISTERS* R2 R3 

CALLS- * OROPU, 'hOVMSG, RECUD, CHKERR, LOG, CLRERR . 



GOWAIT:;IF DEVTBLCR5) EQ tfNINUSE THEN jRTL 



JMP 1* 

ELSE 



ENDIF 

LET TIME1 :* fr-1 

REPEAT 
BREAK 
IF CMDWRD EQ #RWD THEN 





CMP 


DEVT8LCR 




BNE 


50103$ 


;BTl 






jBTL 








BR 


50104$ 


50103$: 






jBTL 






50104$: 






lINIT TIME OUT COUNTER. 







MOV 



*-l,TIME 



DELAY 10, 



{REPEAT UNTIL INTERRUPT OCCURES: 

50105$: 
;G0 TO THE SUPER TO ALLOW TTY INPUT. 

TRAP C$BRK 
;IF COMMAND WAS REWIND THEN: 

CMP CMDWRD, $ 

BNE 50106$ 
j WAIT EXTRA MSECS EACH LOOP. 

MOV 



ENOTF 

IF CMDWRD EQ tfSFF OR CMDWRD EQ #SFR THEN 



50106$ 



.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 



CMP 

be a 

CMP 
BNE 



no. »cpc 
o 

l$Dly,<;p 


-6CPC) 
. 4 

-22(PC) 
• -20 



CMDWRD,* 
50107? 
CMDWRD ,0 
50110$ 



DELAi 12, 



50107$: 
;ADD DELAY FOR SPACE TAPE MARK COMM4N0S 



ENDIF 

IFG DINT EQ 00 THEN 



MOV 

.WORD 

MGV 

.WORD 

DEC 

BNt 

DEC 

BNL 



512. .(PC 



l.JDLY t (P 



*< PC ^ 
, 4 
■ t ViPC> 

•20 



50110$: 
j IF INTERRUPTS ARE t NAtU H\ 



\a 



GLOBAL 


ARIAS 


MAC^i 11 


30(1046) 06-APF 


CZTSHD. 


Pll 06-APR-84 


08:49 


5703 


010774 


105737 


002210 


3704 


011000 


001003 




3 705 


011002 






3, '06 


011002 


016502 


003416 


3707 


011006 






3708 


011006 


000406 




3709 


011010 






3710 


011010 






3711 


011010 


012703 


000200 


371^ 


011014 


005103 




3713 


011016 






3714 


011016 


017502 


00J462 


3715 


011022 


040302 




3716 


011024 






3717 


011024 






3718 


011024 






3719 


011024 


005337 


003364 


3720 


011030 






3721 


011030 


005702 




3722 


011032 


001003 




3723 


011034 


005737 


003364 


3724 


011040 


001310 




3725 


011042 






3726 


011042 






3727 


011042 


005737 


003364 


3723 


011046 


001022 




3729 


011050 






3730 


011050 


016577 


003324 172256 


3731 


011056 


005377 


1/2252 


3732 


011062 


004737 


011224 


3733 


011066 






3734 


011066 


104455 




3735 


011070 


000004 




3736 


011072 


004421 




3737 


011074 


005372 




3738 


011076 


004757 


015554 


3739 


0U102 






3740 


011102 


012703 


003416 


3741 


011106 


004737 


011154 
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SEQ 0088 



LET R2 :» INTFLGCR5) 
ELSE 

LET R3 :« COMP 0TS.SSR 

LET R2 :* BTSSRCRS) CLR.BY 

ENDIF 

LET TIME1 .•* TIME1 - #1 
UNTIL R2 NE 00 OR TIME1 EQ 00 



TSTB DINT 

BNE 50111$ 
s FETCH INTERRUPT OCCURRED FLAG. 

MOV INTFLGCR 
SIF IN BRUTUS MODE: 

BR 50112$ 
50111$; 
} SET UP A MASK FOR THE DONE BIT. 



IF TIME1 EQ 00 THEN 



LET 3DATAUT :» RECCNTCR5) 



J8R PC.MOVMSG 

ERRDF />4,N0INTM,STAERM 



JSR PC.DROPU 

LET R3 : - OFNDERF 

JSR PC.CLRERR 



{DROP 



MOV 


MS.SSR, 


COM 


R3 


R3 {FETCH DONE BIT. 




MOV 


STSSR(R5 


BIC 


R3.R2 


50112$: 




{UPDATE TIMEOUT COUNTER. 




DEC 


TIME1 


{REPEAT UNTIL INTERRUPT OR READY OCCURES 


TST 


R2 


BNE 


50113$ 


TST 


TIME1 


BNE 


50105$ 


50113$: 




{IF TIME OUT HAS OCCURRED: 




TST 


TIME1 


BNE 


50114$ 


01 } RE -ADJUST REC COUNT DOWN 




MOV 


RECCNTCR 


DEC 


SOATAWT 


{MOVE CURRENT MSG PACKET TO COMMON AREA. 


{REPORT NO INTERRUPT. 




TRAP 


C$ERDF 


.WORD 


4 


.WORD 


NOINTM 


.WORD 


STAERM 


THE UNIT. 




MOV 


SENDERF , 



{CLEAR ALL ERROR FLAGS 



1.7 



GLOBAL 


ARr AS 


MAC ill 


30(1046) 


CZTSHD. 


Pll 06-APR-84 


08;49 


374? 








374? 


011112 






3/44 


01111? 


000417 




3745 


011114 






3746 


011114 


004 737 


011224 


3747 


0U120 


004 737 


011310 


3748 


011124 


004737 


011456 


3 749 


011130 






3 750 


011130 


105737 


003407 


3751 


011134 


001006 




3752 


011136 


004737 


014102 


3753 


011142 






3754 


011142 


012703 


003416 


3755 


011146 


004737 


011154 


3756 


011152 






3757 


011152 






3^58 


011152 






3759 


011152 






3760 


011152 


000207 
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ELSE 



SEQ 0089 



JSk PC.MOVMSG 

JSR PC.RECUD 

JSR PC.CHKERR 

IFB WRTYFG EG) #0 THEN 



BR 50115$ 
50114$: 
;MOVE CURRENT MSG . PACKET TO COMMON AREA 
; UPDATE THE RECORD COUNT. 
j CHECK FOR STATUS ERRORS. 



1$; 











TSTB 


WRTYFG 










BNE 


50116$ 


JSR 


PC. LOG 


;LOG BYTES 


AND ERRORS. 






LET 


R3 :" ttENDERF 






MOV 


0ENDERF , 


JSR 


PCCLRERR 


j CLEAR ALL 


ERROR FLAGS 






END IF 






50116$: 






ENDIF 






50115$: 






RTS 


PC 


{RETURN IF 


DONE. 







M/ 



GLOBAl 


ARF AS 


MAO 11 


30(104b) 06-APf 


CZTSHD, 


PU 06-APR-84 


08:49 


3761 








3762 








3763 








3 764 








3765 








3766 








3767 


011154 






3768 


011154 


012702 


003404 


376^ 


011160 






3770 


011160 






3771 


011160 






37 72 


011160 


005022 




3773 


011162 






3774 


011162 


020203 




3775 


011164 


001375 




3776 


011166 


oooc r> 7 




37 7 7 








37 78 








3779 








3780 








3781 








3782 








3783 








3784 








3785 








3786 


011170 






378V 


011170 


012737 


.177777 003364 


3788 


011176 






3789 


011176 






3790 


011176 






3791 


011176 


104422 




3792 


011200 






3793 


011200 


005337 


003364 


3794 


011204 






3795 


011204 


032775 


000200 002462 


3 796 


011212 


001003 




3797 


011214 


005737 


003364 


3798 


011220 


001366 




3 799 


011222 






3800 








3801 


011222 


00020? 




3802 








3803 
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SUBROUTINE TO CLEAR FLAGS. 

INPUTS: R3 = LWA TO BE CLEARED ♦ 2 

OUTPUTS: 

REGISTERS: R2 

CALLS: 

CLRERR:: LET R2 : =■ 0BGNFLG 

REPEAT 

LET CR2)* : -■ 00 

UNTIL R2 EQ R3 

RTS PC 



SUBROUTINE TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



SEQ 0090 





MOV 


0BGNFLG, 


50117$: 








CLR 


CR2)* 




CMP 
BNE 


R2.R3 

50117s 



LET TIME1 : 
REPEAT 

BREAK 

LET TIME1 



USSR;: LET TIME1 :- #-1 jINIT TIMEOUT COUNTER. 

MOV 0-1, TIME 
jREPEAT UNTIL DEV READY OR TIMEOUT: 

50120$: 
jBREAK TO THE SUPERVISOR. 

TRAP CWZ\< 
» TIME1 - 01 ; UPDATE TIMEOUT COUNTER. 

DEC TIME1 
UNTIL 0TS.SSR SETIN o)TSSR(R5) OR TIME1 EQ 00 

BIT 0TS.SSR. 
BNE 50121$ 
TST TIMF.l 
BNE 50120$ 
50121$: 
;REPFAT UNTIL DEV READl OR TIMEOUT. 
RTS PC {RETURN. 



N7 



GLOBAL 


ARF AS 


MACU1 


30(1046) 06-APF 


CZTSHD. 


Pll 06 -APR -34 


08:49 


3004 








3803 








3806 








380? 








3808 








3809 








3810 








3811 








3812 


011224 






3813 


011224 


017537 


002462 003402 


3814 


011232 






3815 


011232 


013702 


003402 


3816 


011236 


042702 


177761 


3817 


011242 






3818 


011242 


010237 


003376 


3819 


011246 


006237 


003376 


3820 


011252 






3821 


011252 


016503 


002502 


3822 


011256 






3823 


0112 r >6 


005002 




3824 


011260 






3825 


011260 






3826 


011260 


020227 


000016 


382? 


011264 


001405 




3828 


011266 






3829 


011266 


012362 


002334 


3830 


011272 






3831 


011272 


062702 


000002 


3832 


011276 






3833 


011276 


000770 




3834 


011300 






3835 


011300 






3836 


011300 


01376:> 


002342 003426 


3837 


011306 


000207 
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SEQ 0091 



SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 

TO UPDATE THE CURRENT TERMINATION CLASS CODE. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2, R3. 

CALLS: 

MQVMSG:: LET TSSREG •« 3TSSRCR5) j FREEZE THE ST/.iUS REG CONTENTS 

MOV 3TSSRCR5 
LET R2 :* TSSREG CLR.BY OTSC.TCC {EXTRACT THE TERMINATION CLASS CODE, 



LET CTCC := R2 SHIFT » 1 

LET R3 := MSGPKACR5) 
LET R2 :* tfO 

WHILE R2 NE tfMSGCNT DU 

LET MSGPKTCR2) : = (R3) 
I ET R2 := R2 ♦ #2 

ENDDO 



RTS PC 



MOV 


TSSREG, R 


BIC 


#TSC.TCC 


;AND SAVE IT 




MOV 


R2.CTCC 


ASR 


CTCC 


;ADR OF THIS DEVICE'S MSG, 




MOV 


MSGPKACR 


;CLR COUNTER, 




CLR 


R2 


;WH1LE THERE ARE MORE LOCATIONS 


• 


501225: 




CMP 


R2..VMSGC 


BEG 


50123$ 


{MOVE MSG 10 COMMON AREA. 




MOV 


CR3)*,MS 


{UPDATE COUNTER, 




ADD 


#2>R2 


BR 


50122$ 


50123$: 




{MOVE XSTATO TO EOT FLAG, 




MOV 


MSUPKWM 



Pi 8 



GLOBAl ARFAS 
CZTSHC.Pll 



3858 
3839 
3840 
384 1 
384? 
384 3 
3844 

3845 

3846 

384 7 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 

3863 

3864 

3865 

3866 

3867 

386/J 

3869 

3870 

3871 

387? 

3873 

38 74 

3875 

3876 

3877 

38 78 

3879 

3880 

3881 

3882 

3883 

3884 

3885 

^386 

388 7 

3888 

3889 

3890 



MACU1 S0( 1046) 
06 APR 84 08 j 49 
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StQ 0092 



3891 
389? 



01131C 

011310 

011314 

011316 

011316 

011322 

011322 

011330 

011332 

011340 

011342 

011342 

011346 

011346 

011354 

011356 

011356 

011362 

011362 

011364 

011364 

011364 

011372 

011374 

011374 

011402 

011404 

011404 

011412 

011414 

011414 

011420 

011420 

011420 

011420 

011422 

011422 

011422 

011430 

01143? 

011432 

011440 

01144? 

011442 

011/U,6 

011446 

011446 

01144O 

011446 

QU44& 



105737 
001057 

005365 

032737 
001046 
032737 
00144? 

105237 

023727 
001003 

005065 

000431 



003411 

003324 
000001 
100000 

0034 11 
003346 

003324 



03273 7 004000 
001425 

032737 000400 
001007 

03273 7 000400 
001002 

005265 003324 



000412 

032737 000400 
001406 

032765 000002 
001002 

005365 003324 



0033 76 
002346 

102010 



003346 
003346 
003352 



003352 
003426 



SUBHOUTINb TO ADJUST THE RECORD COUNT, 

INPUTS \ 

OUTPUTS: 

REGISTERS: 

CALLS: 

RECUOs: IFB RECLOG F.Q 00 THEN | IF RECORD HAS NOT BEEN LOGGED: 

TSTB RECLOG 

BNE 50124$ 
LET RF.CCNTCR5) ;« RECCNTCR5) - 01 

DEC RECCNTCR 
IF OBITO NOTSETIN CTCC AND 0X2. OPM St TIN MSGPKT*MS.XS2 THEN i IF TAPF 

BIT OBITO. CT 

BNE 50125* 

BI- 0X2. OPM, 

BEQ 50125$ 
LET RECLOG jB- RECLOG ♦ 01 j SE T RECORD LOGGED, 

INCB RECl OG 
IF CMDWRD EQ ORWD THEN | IF THIS IS A REWIND CMD: 

CMP CM0wRD,o 

BNE 50126$ 
LET RECCNTCR5) ;- 00 i CLEAR RECORD COUNT, 

CLR RECCN T (R 
fclSE 

BR 5012/$ 
50126$; 
IF OBRF.C SET IN CMDWRD THEN i IF BRF USED, UPDATE RECORD COW 

BIT OBRF.C, C 

BEQ 50130$ 
IF OMOO.CO NOTSETIN CMDWRD THEN i lr A FORWARD CMD: 

BIT OMOO.CO. 

BNE 50131$ 
tf OMOO.CO NOTSETIN PCMDWD THEN j If PRtV CMO WAS A FwO ALSO: 

BIT OMOO.CO. 

BNE 50132$ 
LET RECCNTIR5) f 3ECCNTCR5) * 01 , INCREMENT RECORD COL*T. 

INC RECCNTCR 
END IF 

50132$: 
ELSE i IF REVERSE CMO: 

BR 50133$ 
50131$: 
IF OMOD.CO SETIN PCMDWD THEN i IF PREVIOUS CMO WAS A Rt\ ALSO: 

BIT OMOO.CO, 

BEO 50134$ 
IF 0X0, UOT NOTSFTIN FOTF'L.liCRfO THEN iWHEN NO? AT BOT THEN 

BIT 9X0, BO", 

BNE 50135$ 
t FT RECCNTCR5) i« RECCNUR5) • 01 tOECREMENT RECORD CiXtT 

DEC RtCCNUR 
frNDIf 

5013S$; 

tNlHf 

50134$; 

fcNDU' 

50133$ i 



lit.OBAl 


ARf AS 


MAO li 301 1046) 


CZTSHO. 


Pll 06-APR-84 08:4* 


38*4 


011446 




38^ 


011446 




3S*6 


011446 




38*; 


011446 




3fl98 


011446 




38*9 


011446 




3900 


011446 




3*01 


0114^6 


01657 7 003324 


390.? 


011454 




3903 


011454 




3*04 


011454 


000.207 



C8 
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171660 



END If 
F.NOIF 
ENOIF 

IET aOATAWT !« RECCNHR5) 
ENDIK 
RTS PC 



j RE TURN 



501 30 J: 
501.'?/$: 
50125$ { 

50ia4$j 



SfcO 0093 



MOV 



RECCNTCR 



D8 



I'.LORAL 


ARfc AS 


MAC HI 


50(104(0 

08:49 


06 APf 


C/TSHO. 


PI i Ob APR 84 




3^0^ 










7906 










390" 










3906 










3^0^ 










3910 










3^1 L 










391,? 










3913 










3914 










3915 


011456 








3916 


011456 


02652 7 


002532 


177774 


391? 


011464 


001003 






3918 


011466 


000137 


011676 




3919 


011472 








3920 


011472 


000400 






3921 


011474 








3922 


011474 








3923 


011474 








3924 


011474 








3925 


011474 


0327^7 


100000 


003402 


3926 


011502 


001441 






3927 


011504 








39?8 


011504 


023727 


0033*6 


000002 


3929 


011512 


001405 






3930 


011514 








3931 


011514 


105737 


003415 




3932 


011520 


001002 






3933 


011522 


005265 


003264 




3934 


011526 








3935 


011526 








3936 


011526 








3937 


011526 








3938 


011526 








3939 


03 1526 


032737 


004000 


003402 


3940 


011534 


001004 






394 1 


011536 


032737 


040000 


003402 


3942 


011544 


001412 






3943 


011546 








3944 


011546 








3945 


011546 


032737 


100000 


002346 


3946 


011554 


001003 






394 7 


011556 








3948 


011556 


012702 


000005 




3949 


011562 








3950 


011562 


000402 






3951 


011564 








3952 


011564 








3953 


011564 


012702 


000004 




3954 


011570 








3955 


011570 








3956 


011570 








3957 


011570 


000402 






3958 


011572 








3959 


0115/2 








3960 


C11572 


013/02 


0033/6 





M4 

GlUH 



AL* SUBROUTINE 5 SFCUON 



SEQ 0094 



THIS IS THE ERROR CHECK SUBROUTINE. AFTER INTERRUPT THIS 

SUBROUTINE IS CALLED TO CHECK THE TS04 STATUS. 

IF SPECIAL CONO IS SET THEN THE TCC HANDLING SUBROUTINE IS ENTERED. 

IF THE RFC IS NON ?ERO FOR A COMMAND REQUIRING A BPCR, 

THEN AN ERROR RFC IS REPORTED, 

INPUTS: 

OUTPUTS: 

REGISTERS; 

CALLS: 



R2, R4. 

TCC0-TCC7. 



CHKERRji IF DEVTBLCR5) EQ ONINUSE THEN jBTL 



JMF 1$ 
ELSE 



iBTL. 

jBTL 



jBTL 



50136$ 



CMP 
BNE 



BR 



DEVTBLCR 
50136$ 



50137$ 



ENDIF 

IF 0TS.SC SFTIN TSSREG THEN 

IF CTCC NE 02 THEN 

IFB ERRREC EQ 00 THEN 

INC SCCNTCR5) 
ENDIF 

ENDIF 

50141*; 

IF 0TS.NXM SETIN TSSREG OR OTS.UPE 5ETIN TSSREG THEN 



50137$: 
IF SPECIAL COr ID STATUS IS SET 



911 


0TS.SC, 


BEQ 


50140$ 


F TCC IS NOT 2 THEN: 




CMP 


CTCC. 02 


BEQ 


50141$ 


j IF NOT IN ERROR RECOVERY: 




TSTB 


ERRREC 


BNE 


50142$ 


j INC SC COUNTER. 




50142$; 





IF 0X2. OPM NOTSETIN MSGPKT *MS. XS2 THEN 



50143$: 



LET R2 :- 05 
ELSE 

I FT R2 : ■ 04 
ENDIF 
EL St 

LET R2 j* CTCC 



jSET TCC5 INDEX 



jUHEN NON-EXISTA 
BIT 0TS.NXM, 

BNE 5014 3$ 

BIT 0TS.UPE, 

BEQ 50144$ 

j AND TAPE NOT MO 
BIT 0X2. OPM, 

BNE 50145$ 



MOV 
BR 



05. R2 

50146$ 



50145$: 
;TAPE MOVED. SET TCC4 INDEX 

MOV C4 . R2 

50146$: 

BR 5014*$ 

50144$: 
{SET DETECTED TCC INDEX 

MOV CTCC.R.: 



E8 



GLOBAL 


ARFAS 


MACU1 


30(1046) 


06 -AP 


CZTSHD, 


Pll 06-APR-84 


08 1 49 




3961 


011576 








3962 


011576 








3963 


011576 








3964 


011576 


006302 






3965 


011600 


004772 


011700 




3966 


011604 








3967 


011604 


000426 






3968 


011606 








3969 


011606 








397C 


011606 


032737 


004000 


003340 


3971 


011614 


001422 






3972 


011616 








3973 


011616 


005737 


002340 




3974 


011622 


001417 






3975 


011624 








3976 


011624 


105737 


003441 




3977 


011630 


001403 






3978 


011632 


105737 


003442 




3979 


011636 


001411 






3980 


011640 








3981 










3982 


011640 








3983 


011640 


105737 


003445 




3984 


011644 


001006 






3985 


011646 








3986 


011646 


005265 


003304 




3987 


011652 








3988 


011652 


104456 






3989 


011654 


000015 






3990 


011656 


004254 






3991 


011660 


005372 






3992 


011662 








3993 


011662 








3994 


011662 








3995 


011662 








3996 


011662 








3997 


O. 1 i662 








3998 


011662 








3999 


011662 








4000 


011662 








4001 


011662 








40C2 


011662 








4005 


011662 


105737 


003413 




4004 


011666 


001403 






4005 


011670 








4006 


011670 


013737 


003350 


002310 


400 7 


011676 








4008 


011676 








4009 


011676 


OQ0207 
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SEQ 0095 



END IF 

LET R2 •• R2 SHIFT 1 



JSR 
ELSE 



PC.8TCCRACR2) 



50147$: 
{CURRENT TCC X 2. 

ASL R2 

I GO TO THE TCC HANDLING SUBROUTINE, 



IF 0BRF.C SETIN CMDWRD THEN 
IF MSGPKT»MS.RFC NE 40 THEN 



BR 


50150$ 


50140*: 




j IF BRF IS USED IN THIS CMD 


THEN: 


BIT 


<tfJRF.C,C 


BEQ 


50151$ 


j IF THERE IS AN RFC THEN: 




1ST 


MSGPKT^M 


BEQ 


50152$ 


G NF; 00 THEN 




TSTB 


RANDOM 


BEQ 


50153$ 


TSTB 


VFYFLG 


BEQ 


50154$ 



50153$: 
{IF NOT IN RANOOM OR IF CM!) IS WTV: 
IFB IRE EQ 00 THEN ; IF RFC ERROR REPORTS ARE ALLOWED: 

TSTB IRE 

8NE 50155$ 

LET HRDCNTCR5) :- HRDCNTCR5) ♦ 01 {UPDATE HARD ERROR COUNT 



ERRHRD 413.RFCERM.STAERM 



ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
IFB RWERR NE 00 THEN 



Hi 



LFT CMDPKT 
tNDIF 
RTS PC 



CMDSAV 



INC HRDCNTCR 
{REPORT RFC ERROR 

TRAP C$ERHRD 

.WORD 13 

.WORD RFCERM 

.WORD STAERM 



50155$ 

50154$ 

50152$ 

50151$ 

50150$ 

{IF A READ/WRITE ERROR HAS OCCURRED THEN 

TSTB RWERR 
BEQ 50156$ 
{RESTORE CMD PACKET AFTER ERROR RECOV. 

MOV CMDSAV.C 



{RETURN, 



50156$: 



F8 



GLOBAl 


ARt AS 


MACUl 


30( 104b) 


CZTSHO. 


PU 06-APR-S4 


08:49 


4010 








4011 








4012 


011700 


011720 




4013 


011702 


011736 




4014 


011704 


011754 




4015 


011706 


012064 




4016 


011710 


012102 




401? 


011712 


012552 




4018 


011714 


012650 




4019 


011716 


012700 
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i ADDRESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES - 

TCCRA: TCCO 
TCC1 
TCC2 
TCC3 
TCC4 
TCC5 
TCC6 
TCC7 



SEQ 0096 

7. 



G8 



liLOBAl 


ARt-AS 


MAO 11 


30(1046) 


CZTSHD. 


Pll 06 -APR -84 


08;49 


4020 








4021 








4022 








4023 








4024 








4025 








402b 








4027 


011720 






402C 


011720 


005265 


003304 


4029 


011724 






4030 


011724 


104456 




4031 


011726 


000005 




4032 


011730 


004230 




403? 


011732 


005372 




4034 


011734 


000207 




4035 








4036 








403? 








4038 








4039 








4040 








4041 








4042 








4043 








4044 








4045 








4046 








404? 








4048 


011736 






4049 


011736 


104455 




4050 


011740 


000006 




4051 


011742 


C04335 




4052 


011744 


005372 




4053 


011746 


004737 


015554 


4054 


011752 


000207 
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SEQ 0097 



\ 
i 
I 
; 
i 
i 

TCCO; 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 

CONDITION ERROR. 

INPUTS i 

OUTPUTS: 

REGISTERS: 

CALLS: 



LET HRDCNKR5) ;- HRDCNTCR5) 
ERRHRD 05, SCERM, STAERM 

RTS PC 



<n {UPDATE HARD ERROR COUNT. 

INC HRDCNTCR 
;REPORT SPECIAL CONDITION ERROR. 

TRAP CSERHRD 
.WORD 5 
.WORD SCERM 
.WORD STAERM 
{RETURN. 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1, ATTENTION CONDITION. 

THIS 7CC INDICATES THAT THE DRIVE HAC UNDERGONE A STATUS CHANGE 

SUCH AS GOING OFFLINE OR COMING ONLINE. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2.R4 

CALLS: DROPU 



TCClj? ERRDF $6, ATTNM, STAERM 



JSR PC, DROPU 
RT'i PC 



{REPORT ATTENTION-UNIT OFF LINE. 

TRAP C$ERDF 
.WORD 6 
.WORD ATTNM 
.WORD STAERM 

:DROP THE UNIT. 

{RETURN. 



H8 



U OB A! 


m as 


MACl 11 


30C 104t>) 


CZTSHD, 


Pll 06-APR-84 


08;49 


4055 








4056 








405 7 








4056 








4059 








4060 








4061 








406c? 








4065 


011754 






4064 


011754 


032737 


000002 


4065 


011762 


001404 




4066 


011764 


105737 


003440 


4067 


011770 


001401 




4068 








4069 


011772 


000433 




4070 


011774 






4071 


011774 






4072 


011774 






4073 


011774 


032737 


170002 


4074 


012002 


001427 




4075 








4076 


012004 






4077 


012004 


105737 


003441 


4078 


012010 


001403 




4079 


012012 


105737 


003442 


4080 


012016 


001421 




4081 


012020 






4082 








4083 


012020 






4084 


012020 


105737 


003445 


4085 


012024 


001016 




4086 


012026 






4087 


012026 


105737 


003415 


4088 


012032 


001403 




4C89 


012034 






4090 


01203* 


105237 


003414 


4091 


012040 






4092 


012040 


000402 




4093 


012042 






4094 


012042 






4095 


012042 


005265 


003264 


4096 


012046 






4097 


012046 






4098 


012046 






4099 


012046 


005265 


003304 


4100 


012052 






4101 


012052 


104456 




4102 


012054 


000007 




4103 


012056 


0044 36 




4104 


C12060 


005372 




4105 


012062 






4106 


012062 






4107 


012062 






4108 


012062 






4109 


012062 






4U0 


012062 
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GLOBAL 



SUBROUTINES 



SECTION 



SEG 0098 



002342 



; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 

i A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 

I TO THE PROGRAM, BITS OF INTEREST INCLUDE TMK , RLS, LET, RLL , BOT, EOT. 

i INPUTS: 

j OUTPUTS: 

} REGISTERS: 

j CALLS: 

TCC2JJ IF 0X0. BOT SETIN MSGPKT*MS,XSO ANDB EXPBOT NE 00 THEN 

BIT #X0. HOT, 
BEQ 50157$ 
TSTB EXPBOT 
BEQ 50157$ 
,IE AT BOT AND BOT IS EXPECTED; 
BR TC2RTN {RETURN-TCC2 CAUSED 8Y EXPECTED BOT. 

ENDIF 

50157$: 
IF 0XO.RLS!X0.RLL!X0.TMK!X0,LET!XO.B0T SETIN MSGPK f >MS.XSO THEN 

BIT OXO.RLS! 
BEQ 50160$ 
sir TCC2 CAUSED BY ANYTHING BUT EOT: 
IFB RANDOM EQ 00 ORB VFYFLG NE 00 THEN 

TSTB RANDOM 
BEQ 50161$ 
TSTB VF>FLG 
BEQ 50162$ 
50161$: 
j IF NOT IN RANDOM OR IF CMO IS UlTV; 
i IF RFC ERROR REPORTS ARE ALlOWED: 



IFB IRE EQ 00 THEN 

IFB ERRREC NE 00 THEN 



LET UNREC :B» UNREC ♦ 01 
ELSE 



TSTB IRE 
BNE 50163$ 
j IF WE ARE. IN ERROR RECOVERY THE 

TSTB ERRREC 
BEQ 50164$ 
j SET UNRECOVERABLE FLAG FOR LO 
INCB UNREC 
jELSE - IF NOT IN ERROR RECOVERY 

BR 50165$ 
50164$: 
LET SCCNTCR5) :• SCCNTCR5) ♦ PI {INCREMENT THE SPEC COND COUNT 

INC SCCNTCR5 
ENDIF 

50165$: 
LET HRDCNr(R5) j« HRDCNUR5) ♦ 01 {UPDATE HARD ERROR COUNT. 

INC HRDCNTCR 
ERRHRD 07,TSAM,STAERM {REPORT TAPE STATUS ALERT. 



ENDIF 
ENDIF 
ENDIF 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRO 

TSAM 
STAERM 



50163$ 
50162$ 
50160$ 



18 



GLOBAl 


ARf AS 


MAC 1 ! 11 


50(1046) 


CZTSHO. 


Pit 06-APR-84 


08;49 


4111 


012062 


00020/ 




4112 








4113 








4114 








4115 








4116 








4117 








4118 








4119 








4120 








4121 








4122 








4123 








4124 








4125 


012064 






4126 


012064 


104455 




4127 


012066 


000010 




4128 


012070 


004353 




4129 


012072 


005372 




4130 


0120/4 


004737 


015554 


4131 


012100 


000207 
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TC2RTN: RTS PC 



SEQ 0099 



{RETURN. 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 6, FUNCTION REJECT. 

THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 

RMR, OFL, VCK t BOT, ILC, ULE« ILA, AND NdA. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2.R4 

CALLS: DROPU 



TCC3:: ERRDF tf8,FUNRM,STAERM 



JSR PC, DROPU 
RTS PC 



jREPORT FUNCTION REJECT, 





TRAP 


C$ERDF 




.WORD 


8 




.WORD 


FUNRM 




.WORD 


STAERM 


jDROP THE UNIT. 






jRETURN* 







J8 



a OB Ml 


ARt AS 


MAC^i 11 


30C 1046 


CZTSHD. 


PI 1 06 -APR 84 


08:49 


413;" 








4 155 








4154 








4155 








4156 








413" 








4138 








4139 








4140 








4141 








414.: 








4143 








4144 








4145 








4146 








414^ 








4148 








4 149 








4150 


012102 






4151 


012102 


02652 7 


002532 


4152 


012110 


001003 




4153 


012112 


000137 


012550 


4154 


0121.6 






4155 


012116 


000400 




4156 


012120 






4157 


012120 






4158 


012120 






4159 


012120 






4160 


012120 


023727 


003354 


4161 


012126 


001134 




4162 


012130 


105737 


002206 


4163 


012134 


001531 




4164 


012136 






4165 


012136 


105737 


003415 


4166 


012142 


001007 




4167 


012144 


105737 


002205 


4168 


012150 


001404 




4169 


012152 






4170 


012152 


1044^7 




4i 71 


012154 


000011 




4172 


012156 


004550 




4173 


012:60 


005372 




4174 


012162 






41/5 


012162 






4176 


012162 






4177 


012162 


105737 


002211 


4178 


012166 


001111 




4179 


012170 






4180 


012170 


105237 


003415 


4181 


012174 






4182 


012174 


105237 


003410 


418? 


012200 






4184 


012200 


105 73/ 


003407 


4185 


012204 


001101 




4 186 








4187 


012206 
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SEQ 0100 



177774 



TCC4 



000002 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 4, RECOVERABLE ERROR. 

TAPE POSITION IS ONE RECORD BEYOND WHAT its POSITION WAS WHEN 

THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 

ERROR AND ISSUE THE APPROPRIATE RETRf COMMAND. 

2 WRITE -ERROR -RECOVERY ALGORITHMS CAN BE SELECTED: 

THE FIRST ONE, VIA BADTSW SWITCH, DOES DETECT BAD SPOTS ON TAPE. 

IT CALLS A WRITE RETRY SUBR UNTIL THE RECORD IS RECOVERED 

OR 20 BAD SPOTS HAVE BEEN LOGGED. ON REACHING 20 BAD 

SPOTS LOGGED, A BAD TAPE OVERFLOW MSG IS r MINTED AND THE 

UNIT DROPPED, 

THE SECOND ALGORITHM ISSUES THE TS11 WRITE RETRY COMMAND 

UP TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 

WITH THE NEXT RECORD ON RECOVERY. 

INPUTS t 

OUTPUTS: 

REGISTERS: R2 R4 . 

CALLS:*" ' RTLE,*EXCUTE, GOWAIT, DROPU, WRTY 

IF DEVTBLCR5) EQ tfNINUSE THEN jBTL 



JMP 3$ 
ELSE 



ENDIF 



;8TL 
jBTL 



jBTL 



IF CMDLG EQ 02 ANDB BADTSW NE 00 THEN 



IFB ERRREC EQ 00 ANDB EPCVER NE 00 THEN 



ERRSOFT tt9,RERM.STAERM 

ENDIF 

IFB IREC EQ 00 THEN 

I FT ERRREC :R- FRRREC 
LET WRTyER :B> WRTyFR 
IFB WRTYFG EQ 00 THEN 





CMP 
BNE 


DEVTBLCR 
50166$ 


50166$: 


BR 


50167$ 


50167$: 








CMP 
BNE 

TSTB 
BEQ 


CMOLG,^ 

50170$ 
BADTSW 
50170$ 




TSTB 

BNE 

TSTB 
BEQ 


ERRRF.C 
50171$ 

ERCVER 
50171$ 




TRAP 
.WORD 
. WORC 
.WORD 


C$ERS0FT 

9 

RERM 
STAERM 


50171$; 








TSTB 
BNE 


IREC 
50172$ 



LET WTYWRD 



CMDWRO 



<H -RETRv FLAG FQK EXCUTF SDBR: DON' 1 ITOAT 

INCB ERRREC 

01 iREWRITE ERROR FLAG FOR WRn SL>BR 

INCB WRTYER 

jFIRST RETR> ON THIS RECORD: SUBSEQUENT 

TSTB WR MFC 

BNE 501 \<$ 

jRETRIES WITH TCC4 ERRORS B^ PASS THIS S 
tSAVE WRITE COMMAND PACKET 



K8 



GLOBAL 


AFtt AS 


MAC>11 


30(1046' 


CZTSHO. 


PI 1 06-APR-84 


08:49 


4188 


012206 


013/37 


003346 


4189 


012214 






4190 


012214 


013737 


002310 


4191 


012222 






4192 


012222 


013737 


002316 


4195 


012230 






4194 


012230 


10*3237 


003413 


4195 


012234 






4196 


012234 


105237 


003407 


4197 


012240 






4198 


012240 






4199 


012240 






42C0 


012240 


005265 


003244 


4201 


012244 






4202 


012244 


005037 


003404 


^ ,103 


012250 






4204 


012250 


105037 


003406 


4205 


012254 


004737 


013044 


4206 


012260 






4207 


012260 


026527 


002532 


4208 


012266 


001003 




4209 


012270 


000137 


012550 


4210 


012274 






4211 


012274 


000400 




4212 


012276 






421? 


012276 






4214 


012276 






4215 


012276 






4216 


012276 


105737 


003410 


4217 


012302 


001404 




4218 


012304 


027727 


171126 


4219 


012312 


103752 




4220 


012314 






4221 








4222 


012314 






4223 


012314 


027727 


171116 


4224 


012322 


103423 




4225 


012324 






4226 


012324 


012746 


013457 


4227 


012330 


012746 


000001 


4228 


012334 


010600 




4229 


012336 


104414 




4230 


012340 


062706 


000004 


4231 


012344 


004737 


013576 


4232 


012350 






4233 


012350 


005365 


003324 


4234 


012354 


004737 


015554 


4235 


012360 






4236 


012360 


005065 


003324 


4237 


012364 






4238 


012364 


012775 


C02330 


4239 


012372 






4240 


012372 






424 1 


012372 






4242 


0123 72 


105037 


003407 


4243 


012376 
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013366 
013364 
013370 



177774 



000050 



000050 



002452 



LET WTYCMD 
i.ET WTYBRF 



CMOPKT ; 
CMDPKTfCP.CNT 





SEQ 0101 


MOV 


CMOWRO,W 


MOV 


CMOPKT # W 


MOV 


CMOPKT fC 



LET RWERR :B« RWERR ♦ #1 ;LOG SUBR FLAG: COUNT WRT ERRORS 

INCB RWERR 
LET WRTYFG ;B« WRTYFG ► #1 jRETRY IN PROGRESS FLAG 

INCB WRTYFG 
REPEAT 

50174$: 
LET URTYCTCR5") : - WRTYCTCR5) ♦ *1 >COUNT GLOBAL WRITE RETR 

INC WRTYCTCR 
LET RETRYC :» #0 ; CLEAR OF RETRIES PER RECORD 

:B* i>Q 

JSR PC, WRTY ;CALL WR 

IF UriVTBL(R5) EQ ONINUSE THEN 



JMP 3$ 
ELSE 



LET RPTCNT ;B« OQ 







CLR 


RETRYC 


i CLEAR OF 


REPEATS 








CLRB 


RPTCNT 


ITE RETRY 








;BTL 












CMP 


DEVTBLCR 






Bfcfl 


50175' 1 


jBTL 








;BTL 












BR 


50176$ 


50175$: 







ENDIF 



jBTL 



UNTILB WRTYER EQ i>Q OR 3BTPT HIS 040. 



IF SBTPT HIS #40. THEN 
PRINTB flBTMSG? 



50176$: 

{REPEAT RETRIES ON SAME 
TSTB WRTYER 
BEQ 50177$ 
CMP aBTPT,#4 
BLO 50174$ 
50177$: 
sUNTIL RECOVERED OR 20 BAD SPOTS 
;WHEN 20 BAD SPOTS LOGGED 

O 
Bl 
j PRINT BAD TAPE OVERFLOW MSG 



JSR PC, BORERS 
LET RECCNTCR5) 

JSR PC.DROPU 
LET RECCNTCR5) 



stRASE BAD RECORD 
= RECCNT(R5^ • CI ; 



00 



iDROP UNIT 



LET 6)TSDB(R5:> *» ARWCPK {REWIND UNIT 
ENDIF 

LET WRIT; > :B- tfO 
LET MISCFG {B= MISCFG ♦ ffl 



CMP 


aeTPT,&4 


BLO 


50200$ 


MSG 




MOV 


*BTMSG2, 


MOV 


01. -CSP) 


MOV 


SP.RO 


TRAP 


c:pntb 


ADD 


04, SP 


DEC 


RECCNUR 


CLR 


RECCNUR 


MOV 


orwcpk . a 



50200$ 
{RETRY COMPLETE FLAG 



Cl.RB WRnFG 

;D0 NOT HALT ON THIS CMD FLG 



1.8 



GLOBAL ARFAS 
CZTSHD.P11 



MACU1 301 i* N 46) 
06-APR -84 08:49 
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GLOBAL SUBROUTINES SECTION 



SEQ 0102 



4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

42bl 

4262 

4263 

42>4 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4204 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4 295 

4296 

4297 

4298 

4299 



0123 76 

012402 

012402 

012410 

012410 

012410 

012410 

012412 

012412 

012412 

03.2416 

012416 

012416 

012416 

012420 

012420 

012424 

012424 

012432 

012434 

012434 

012440 

012442 

012442 

012446 

012450 

012450 

012456 

012456 

012456 

012456 

012456 

012456 

012462 

012464 

012470 

012472 

012472 

012474 

012476 

012500 

0L2502 

012502 

01.2502 

012502 

012506 

012506 

012514 

012514 

012520 

012522 

012522 

012526 

012526 

012530 

012532 



105237 003455 

013737 013366 003352 

000402 

105237 003414 

000454 

004737 012716 

023727 003354 000002 
003411 

012702 000020 
006202 

023702 003404 
002403 

052737 020000 002310 



LET PCMDWD :- WTYWRD 
END IF 
ELSE 

LET UNREC :B a UNREC «■ #1 

ENDIF 
ELSE 



INCB MISCFG 
{RESTORE ORIGINAL WRT CMD AFTER RECOVER t 

MOV WTYWRD, P 



50173$: 






50172$: 


BR 


50201$ 




INCB 


UNREC 


50201$: 







BR 



50202$ 



JSR PC.HTLE 

IF CMDLG CT #2 THEN 



IF RET3YC GE R2 THEN 



005737 003404 

001007 

105737 002205 

001404 

104457 
000011 
004550 
005372 



005237 003404 

052737 001000 002310 

105737 002211 
001011 

105237 003415 

012602 

012602 

004 737 010326 



50170$: 
j CHECK FOR RETRY LIMIT EXCEEDED. 
{IF READ CMD THEN: 

CMP CMDLG, #2 

BLE 50203$ 
LET R2 :« tfRRECL SHIFT -1 ;R2=READ RETRY COUNT LIMIT / 2 

MOV *RRECL,R 

ASR R2 
iJ 17 RETRY COUNT IS MORE THAN HAL 

CMP RETRYC, R 

BLT 50204$ 

LET CMDPKT t * CMDPKT SET, BY UOPP.C ;SET OPPOSITE BIT FOR RE 

BIS OOPP.C.C 
ENDIF 

50204 $ : 
ENDIF 

50203$; 
IF RETRYC EQ 00 ANDB ERCVER NE 00 THEN ? IF THIS IS THE ORIGINAL c'RROR 

TST RETR-.C 

BNE 50205$ 

TSTB ERCVER 

BEQ 50205$ 
ERRSOFT 49.RERM.STAERM {REPORT RECOVERABLE ERROR 

TRAP LSERSOFT 

.WORD 9 

.WORD RERM 

.WORD STAERM 

ENDIF {PROVIDED OPERATOR HAS ENABLED THE REPOR 

50205$: 
I. FT RETRYC :« RF.TRYC ♦ #1 {UPDATE RETRY COUNT, 

INC RETRYC 

LET CMDPKT ; = CMDPKT SET. BY 0MOD.C1 ;SET RETRY BIT IN CMD PACKET. 

BIS MOD. CI, 
IFB IREC EQ 00 THEN {IF ERROR RECOVERY ENABLED: 

TSTB IREC 

BNE 5020b $ 
LET ERRREC :B- ERRREC ♦ HI {SET ERROR RECOVERY FLAG. 

INCB ERRREC 
POP R2,R2 {POP c2 RTN ADRS FROM STACK. 

MOV ( SP > * . R2 

MOV tSPV,R2 

JSR PC.EXCUTE {GO EXECUTE THE RETRY COMMAND. 



M8 



GLOBAL 


AR[ AS 


liACUi 


30(1046) 


CZTSHD. 


Pll 06-APR-84 


08:49 


4 500 


012536 


000137 


010636 


4301 


012542 






4 30c"? 


012542 


000402 




4303 


012544 






4304 


012544 






4305 


012544 


105237 


003414 


4306 


012550 






4307 


012550 






4308 


012550 






4309 


012550 






4310 


012550 


00020? 





06 -APR -84 08 5 51 PAGE 105 

GLOBAL SUBROUTINES SUCTION 

JMP GOWAIT 
ELSE 



SEQ 0103 



3$; 



LET UNREC ;B« UNREC * *1 
ENDIF 
liNDIF 
RTS PC 



l GO WAIT FOR INTERRUPT ♦ CHECK STATUS, 

;ELSE IF ERROR RECOVERY IS NOT ENABLED: 

BR 50207$ 
50206$ : 
{SET UNRECOVERABLE ERROR FLAG. 

INCB UNREC 



{RETURN 



50207$: 
50202$: 



N8 



GLOBAl 


ARf AS 


MACU1 


30(104b) 


CZTSHD. 


Pll 06 -APR -84 


08 1 49 


4311 








4312 








4313 








4314 








4 315 








4316 








«;.m; 








4 318 








4319 


012552 


004737 


012716 


4 320 


012556 






4321 


012556 


005737 


003404 


4322 


012562 


001004 




4323 


012564 






4324 


012564 


104457 




4325 


012566 


000012 




4326 


012S70 


004550 




4327 


012572 


005372 




4328 


012574 






4329 


012574 






4330 


012574 






4331 


012574 


005237 


0^3404 


4332 


012600 






4333 


012600 


105737 


00221* 


4334 


012604 


001016 




4335 


012606 






4 336 


012606 


105237 


003415 


4337 


012612 






4336 


012612 


005265 


003324 


4339 


012616 






4340 


012616 


016577 


003324 


4 341 


012624 






4342 


012624 


012602 




4343 


012626 


012602 




4 344 


012630 


004737 


010326 


4345 


012634 


000137 


010636 


4 346 


012640 






4347 


012640 


000402 




4348 


012642 






4 349 


012642 






4 350 


012642 


105237 


003414 


4351 


012646 






4 352 


012646 






4 353 


012646 


000207 




4 354 








4355 
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SEQ 0104 



TCC5;; 



170510 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR, 

TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 

ERROR AND RE-ISSUE THE ORIGINAL COMMAND. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2.R4. 

CALLS; RTLE, EXCUlE, GOWAIT, DROPU, 



JSR PC, RTLE 

IF RETRY? EQ #0 THEN 



ERRSOFT #10,RERM,STAERM 



ENDIF 

LET RETRYC ; = RETRYC 

IFB IREC EQ 00 THEN 



#1 



LET ERRREC :B= ERRREC ♦ #1 

LET RECCNTCR5) s - RECCNTCR5) 

LET 3DATAWT := RECCNT(RS) 
POP R2.R2 



JSR PC.EXCUTE 
JMP GOWAIT 
ELSE 



I FT UNREC :B= UNREC » 
ENDIF 
RTS PC 



<n 



j CHECK FOR RETRY LIMIT EXCEEDED 

j IF THIS IS THE ORIGINAL ERROR THEN; 



TST 


RETRYC 


BNE 


50210$ 


{REPORT RECOVERABLE ERROR. 




TRAP 


CSERSOFT 


.WORD 


10 


.WORD 


RERM 


.WORD 


STAERM 


50210$: 




{UPDATE RETRY COUNTER. 




INC 


RETRYC 


I IF ERROR RECOVERY IS ENABLED: 




TSTB 


IREC 


BNE 


50211$ 


jSF T ERROR RECOVERY FLAG. 




INCB 


ERRREC 


#1 s UPDATE REC COUNT 




INC 


RECCNTCR 



;AND INSERT IT INTO WRT BFR 

MOV RECCNTCR 
jPOP 2 RTN ADRS FROM STACK. 

MOV (SP)r # R2 
MOV CSP)*.R2 
GO RE -ISSUE THE COMMAND. 
GO WAIT FOR INTERRUPT ► CHECK STATUS. 
ELSE IF ERROR RECOVERY IS NOT ENABLED - 

BR 50212$ 
50211$: 
SET UNRECOVERABLE ERROR HAG. 

INCB UNREC 



{RETURN. 



50212$; 



r , .- ■* 



GLOBAl 


AR* AS 


MACUl 


30C 1046) 


CZTSHD. 


PI I 06 -APR -84 


08}49 


4356 








435; 








4 358 








4 35** 








4 360 








4361 








4 362 








4363 








4 364 








4 365 








4 366 








4367 


012650 






4 36^ 


012650 


012775 


002330 


4 36^ 


: 12656 


004737 


011170 


4 3 -0 


012662 






43U 


012662 


104455 




4 3?2 


012664 


000013 




47*3 


012666 


004572 




4i"4 


012670 


005372 




4 3 '5 


0126/2 


004757 


015554 


4376 


012676 


000207 
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SEQ 0105 



002452 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 6, IRRECOVERABLE ERROR. 

TAPE POSITION HAS BEEN LOST, THE ONLY VALID RECOVERY PROCEDURE 

IS TO REWIND AND START OVER AT POT UNLESS THE TAPE HAS LABELS OR 

SEQUENCE NUMBERS. THIS DIAGNOSTIC WILl REWIND AND RETRf THE 

COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 

DROPPED FROM THE TEST SEQUENCE, 

INPUTS: 

OUTPUTSj 

REGISTFRS" R2 R4 

CALLSj ' ' RTLE, WSSR, EXCUTE , GOWAIT. DROPU 



TCC05 5 LET QTSDBCR5) :- ORWCPK 

JSR PC, USSR 

ERRDF Oil.URERM.bTAERM 



JSR PC, DRQPU 
RTS PC 



j ISSUE A REWIND COMMAND, 



MOV 


ORWCPK, a 


jUAIT f OR SUBSYSTEM READr, 




1 REPORT UNRECOVERABLE ERROR. 




TRAP 


CSEROf 


.WORD 


11 


.WORD 


UREPM 


.WORD 


STAERM 


I REPORT ERROR * DROP UNIT, 




j RE TURN 





C c ) 



bl.OPAl 


ARt AS 


NACi 11 


301104b) Oh-APF 


IV T SHD . 


Ml 06 APR 84 


08 j 49 


45.*; 








45*8 








4 3 » 








4 580 








4 581 








438,? 








4383 








4 384 








4 385 








438b 








4 38 V 


012700 






4388 


012700 


104455 




4 389 


012702 


000014 




43*0 


012704 


004373 




4391 


012706 


0053 72 




4 39c" 


012710 


004 73 7 


015554 


43^3 


012714 


000207 




4 394 








4 395 








4 396 








439? 








4 398 








4 399 








4400 








4401 








4402 








4403 








4404 


012716 






4405 


012716 


005737 


003354 


4406 


012722 


001010 




4007 


012724 






4408 


012724 


104455 




4409 


012726 


0OOO13 




4410 


012730 


004572 




4411 


012732 


005372 




4412 


012734 


004737 


015554 


4413 


012740 






4414 


012740 


012602 




4415 


012742 


00O43 7 




4416 


012 744 






4417 


012/44 






4416 


012744 






4419 


012/44 


105237 


003413. 


4420 


012750 






4421 


012750 


02J72 7 


003354 000002 


4422 


012756 


001016 




4425 


012760 






4424 


012 760 


023727 


003404 000020 


4425 


012/66 


001011 




4426 


012 7 70 






442/ 


012770 


105237 


003414 


4428 


0127/4 






4429 


012774 


104455 




44 50 


0127 76 


000016 




44 51 


015000 


004 310 




4432 


013002 


005572 
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SECTION 



SfcQ 0106 



SUBROUTINE TO HANDLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 

ERROR. THE SUBSYSTEM IS INCAPABl F OF PROPERLY PERFORMING 

COMMANDS OR AT LEAST ITS INTEGRITi IS SERIOUSLY QUESTIONABLE. 

REFER T THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 

ADDITIONAL INFORMATION ON THE TYPE Of *ATAL ERROR, 

INPUTS; 

OUTPUTS: 

REGISTERS: R2, R4 

CALLS i 

TCC7 : j ERRDF 012.FATSM, STAfcRM 



JSR PC.DROPU 
RTS PC 



SUBROUTINE TO CHECK FOR RETR* lIMIT EXCEEDED, PRINTS ERROR MESSAGE 

IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A READ. 

INPUTS: 



jREPORT FATAL SUBSYSTEM ERROR. 




VRAP 


CIERDK 


.WORD 


12 


.WORD 


FATSM 


.WORD 


STAERM 


,DROP ?HL UNIT. 




1 RE TURN. 





OUTPUTS: 

REGISTERS: 

CALLS: 



R2. R4» 

OROPU 



RTLEjj IF CMDLG EQ 00 THEN 

ERRDF Oll.URERM.STAE.RM 



JSR PC.DROPU 
POP R2 

BR RTLRTN 
END IF 

I FT RWERR :H- RUt'RH » 0\ 

IF CMDLG EU 02 \W.N 

IF RETHYC EQ OURECL THEN 

I M UNREC :H- UNREC ♦ 1 
ERRDF n4 # RLtXM,5TAERM 



jIF CMO IS NOT A READ OR WRITE THEN: 

TST CMOLC 

BNE 50213* 

, REPORT UNRECOVERABLE ERROR. 

TRAP C*ERDF 

. UORD 1 1 

.WORD URfcRM 

.WORD STAtRM 



iDROP THE UNIT, 
j AND RETURN. 



MOV 



CSP)»,R2 



50213*: 

j SET RE AD/ WRITE ERROR FLAG. 

INCB RWERR 

I IF CMO IS A WRT OR VJTM: 

CMP CMOlG.W 

BNE 50214* 

I IF RETRi COUNT HAS REACHED LIMIT- 

CMP RETPiCt* 

BNE 50215* 

j SE I UNRECOVERABLE H AG 

INCU UNREC 

jREPORT RETRt LIMIT fcXCEfcDKl. 

TRAP C*ERDF 

, WORD 14 

. Wl'RD RLE \M 

.WORO STAtRM 



1)9 



GLOBAL 


*Rt AS 


MACU1 


30C 1046) 


CZTSHD, 


Pil 06-APR-84 


08;49 


4433 


013004 


004757 


015554 


4434 


013010 






4435 


013010 


012602 




4436 


013012 






443? 


013012 






4438 


013012 






4439 


013012 


000413 




4440 


013014 






4441 


013014 






444,? 


013014 


023727 


003404 


4443 


013022 


001007 




4444 


013024 






4445 


013024 


105237 


003414 


4446 


013030 






444? 


013030 


104456 




4448 


013032 


000016 




4449 


013034 


004310 




4450 


013036 


005372 




4451 


013040 






4452 


013040 


012602 




4453 


013042 






4454 


013042 






4455 


013042 






4456 


013042 






4457 


013042 


000207 
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000020 



viSR PCDROPU 
POP R? 

END IF 

ELSE 

IF RETRYC EQ 0RRECL THEN 

LET UNREC :B- UNREC • 01 
ERRHRD 014,RLEXM,5TAERM 



POP R2 
ENDIF 
ENOIF 
RTLRTNi RTS PC 





SEQ 0107 


t DROP THE UNIT, 




MOV 


(SP)*,R2 


50215$: 




,ELSE - CMD IS A READ: 




BR 


50216$ 


50214$: 




t IF RETRY COUNT HAS REACHED LIMIT: 


CMP 


RETRrC,* 


BNE 


50217$ 


i SET UNRECOVERABLE FLAG 




INCB 


UNREC 


; REPORT RECOVERABLE ERROR. 




TRAP 


CSERHRD 


.WORD 


14 


.WORD 


RLEXM 


.WORD 


5TAERM 


MOV 


(SP)*,R2 


50217$: 




50216$: 





.♦RETURN 



E9 



GLOBAL AREAS 
CZTSHD.Ptl 



4456 

4459 

44oO 

44b 1 

4462 

446? 

4464 

4*65 

4466 

446? 

4468 

4469 

4470 

4471 

44 72 

4473 

44 74 

4475 

44 76 

4477 

4478 

VU9 

4480 

4481 

4482 

4483 

4484 

4485 

448t> 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 



MACUl 30(104b) 
06 -APR -84 08 J 49 
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SfcQ 0106 



013044 
013044 
013052 
013054 
013060 
013060 
013062 
013062 
013062 
013062 
013062 
013062 
013062 
013062 
013062 
013062 
013066 
013066 
013072 
013076 
013076 
013104 
013106 
013112 
013112 
013114 
013114 
013114 
013114 
013114 
013120 
013120 
013126 
013130 
013534 
015136 
013136 
013136 
013136 
013136 



026527 002532 177774 

001003 

000137 013362 

000400 



004737 013576 

105037 003410 

004737 013752 

026527 002532 177774 

001003 

000137 013362 

000400 



105237 003406 



123727 
001403 

105737 
001752 



003406 000004 
003410 



SUBR TO REWRITE A BAD, BUT RECOVERABLE WRITTEN RECORD. 

REWRITE RECORD ON SAME SPOT: REPEAT 4 TIMES. 

IF* ALL 4 REPEATS GOOD, RECORD IS RECOVERED 

AND A RECOVERABLE WRITE ERROR IS LOGGED. 

IF ANY OF 4 REPEATS BAD, ERASE BAD RECORD, LOG SUSPECTED 

BAD SPOT, RETRY AGAIN. RETRY 4 TIMES, UP TO 4 REPEATS EACH. 

IF RECORD NOT GOOD AFTER 4 RETRIES. ERASE IT, EXIT WITH 

ERROR FLAG WRTYER SET, PRINTING RETRY FAILED. 

THIS ALL SCHEME IS REENTERED 20 TIMES MAX, IE 20 BAD 

SPOTS MAX ARE ALLOWED. 



INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 



R3 R4 
BORERS, REWRT 



WRTY:: IF DEVTBLCR5) EQ ONINUSE THEN iBTL 



JMP U 
ELSE 



ENDIF 



jBTL 
iBTL 



iBTL 



BEGIN RETRY 
REPEAT 





CMP 
BNE 


DEVTBLCR 
50220$ 


50220$: 


BR 


50221$ 


50221$: 






50223$: 







BEGIN REPEAT 
REPEAT 

JSR PC, BORERS 
LET WRTYER ;B» 00 

JSR PC, REWRT 
IF DEVTBLCR5) EQ &NINUSE THEN 



JMP 15 
ELSE 



END I? 
LET RPTCNI :B- RPTCNT * i>\ 
UNTILB RPTCNT EQ 04 ORB WRTYER NE 



50225 it 
;BACKSPACE/ERASE ONE RECORD 
{CLEAR WRITE RETRY ERROR 

CLRB WRTiER 
;REWRITE RECORD ON SAME SPOT 
iBTL 



005237 003404 



END REPEAT 

LET RETRlC :* RETRiC * *1 







CMP 


DEVTBLCR 






BNE 


50226$ 


jBTL 








}BTL 












BR 


50227$ 




50226$: 






:BTL 


50227$: 






: COUNT 


REPEATS 










INCB 


RPTCNT 


i>0 


{LIMIT; 


4 REPEATS OR REC 






CMPB 


RPTCNT,* 






BEQ 


50230$ 






TSTB 


WRTtER 






BEQ 


50225$ 




50230$: 






i 


50224 $ : 






j COUNT 


RETRIES 







INC 



RETR>C 



LV C 



GLOBAL 


ARFAS 


MACU1 


30(1046) 


C2TSH0, 


Pll 06-APR-84 


08:49 


4514 


013142 






4515 


013142 


02652 7 


002532 


4516 


013150 


001003 




4517 


013152 


000137 


013362 


4518 


013156 






4519 


013156 


000400 




4520 


013160 






4521 


013160 






4522 


013160 






4523 


013160 






4524 


013160 


105737 


003410 


4525 


013164 


001001 




4526 


013166 






4527 


013166 


000457 




4528 


013170 






4529 


013170 






4530 


013170 






4531 


013170 


105737 


002205 


4532 


013174 


001415 




4533 


013176 






4534 


013176 


005046 




4535 


013200 


153716 


003406 


4536 


013204 


013746 


003404 


4537 


013210 


012746 


013372 


4538 


013214 


012746 


000003 


4539 


013220 


010600 




4540 


01o222 


104414 




4541 


013224 


062706 


000010 


4542 


013230 






4543 


013230 






4544 


013230 






4545 


013230 


023727 


003404 


4546 


013236 


001021 




4547 


013240 






4548 


013240 


016537 


002544 


4549 


013246 






4550 


013246 


017704 


170164 


4551 


013252 


062704 


000002 


4552 


0l325f 






4553 


01325b 


010477 


170154 


4554 


013262 






4555 


013262 


020427 


000050 


4556 


013266 


101005 




4557 


013270 






4558 


013270 


013703 


003436 


4559 


013274 






4560 


013274 


060304 




4561 


013276 






4562 


013276 


016514 


003324 


4563 


013302 






4564 


013302 






4565 


013302 






4566 


013302 






456/ 


013302 






4568 


01330? 


105237 


003451 


4569 


0X3306 
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IF DEVT9LCR5) EQ ONINUSE THEN 



JMP 1$ 
ELSE 



ENDIF 

IFB WRTYER EQ #0 THEN 

LEAVE RETRY 
ELSE 

IFB ERCVER NE 00 THEN 

PRINTB 0BTMSG1, RETRYC, <B,RPTCNT^ 







SEQ 0109 


jBTL 








CMP 


DEVTBLCR 




BNE 


50231$ 


{BTL 






{BTL 








BR 


50232$ 




50231$: 




jBTL 








50232$: 




s 


TSTB 


WRTYER 




BNE 


50233$ 


{EXIT 


RETRY LOOP IF 


RECOVERED 




BR 


50222$ 


} 


50c 53$: 





TSTB ERCV£R 
BEQ 50235$ 
{PRINT SUSPECTED BAD SPO 



ENDIF 

IF RETRYC EQ 01 THEN 



CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



-CSP) 

RPTCNT.C 

RETRyC,- 

CBTMSG1. 

03, -CSP) 

SP.RO 

C$PNTB 

010, SP 



000001 



LET BTPT 
LET R4 : 



■ BTADDRCW5) 
S)BTPT * 02 



LET aBTPT •« R4 

IF R4 LOS 040. THEN 



50235$: 
{ON FIRST RETRY, LOGG BAD SPOT 

CMP RETRYC. O 

BNE 50236$ 
;BTPT IS BOTH THE BAD SPOT COCNT 

MOV BTADDRCR 
{AND THE LOGGING INDEX 

MOV S«TPT,R4 

ADD 02, R4 



MOV 

CMP 
BHI 



R4,aeTPT 

R4.04G. 

50237$ 



BTPT 

R4 » R3 

- RECCNTCRS'j 



LET R3 : 

LET R4 : 

LET CR4) 
ENDIF 
ENDIF 

LE1 ER5FLG :B» ERSFLG * 01 
LET RWERR :B» 00 



{STORE FIRST 20 BAD SPOTS 

BTPT k R3 



MOV 
ADD 
MOV 



R3,R4 
RECCNUR 



50237$. 



50236$: 
{ERASE FLAG TO ERASE BAD RECORD 

INCB FRSFLG 
iCANCEU "LOG" ERROR FLAG ON FAX 



G9 



GLOBAL 


ARF AS 


MAC1 11 


30( 1046) 


CZTSHD. 


Pll 06-APR-84 


08:49 


4570 


013306 


105037 


003413 


4571 


01331? 






4572 


013312 


105037 


003406 


4575 


013316 






4574 


013316 






4575 


013316 






4576 


013316 


023727 


003404 


4577 


013324 


001256 




4578 


013326 






4579 


013326 






4580 


013326 






4581 


013326 


105737 


003410 


4582 


013332 


001413 




4583 


013334 






4584 


013334 


105737 


002205 


4585 


013340 


001410 




4566 


013342 






4587 


013342 


012746 


013527 


4588 


013346 


012746 


000001 


4589 


013352 


010600 




4590 


013354 


104414 




4591 


013356 


062706 


000004 


4592 


013362 






4593 


013362 






4594 


013362 






4595 


0137,62 






4 596 


013362 


000207 




4597 








4598 








4 59^ 








4600 
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SEQ 0110 



LET RPTCNT :B- #0 
ENOIF 
UNTIL RETRYC EQ #4 

END RETRY 

IFB WRTYER NE t>0 THEN 

IFB ERCVER NE 00 THEN 

PRINTB 08TMSG3 



CLRB RWERR 
CLEAR REPEAT COUNT FOR NEXT RET 
CLRB RPTCNT 



LIMIT 



{PRINT 



1$: 



ENOIF 
ENDIF 
RTS PC 



50234$? 




4 RETRIES 




CMP 


RETRYC,* 


3NF 


50223$ 


50222*: 




TSTB 


WRTYER 


BEQ 


50240$ 


TSTB 


ERCVER 


BEQ 


50241$ 


ETRY FAILED 




MOV 


*BT^iSG3 ( 


MOV 


♦1,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTB 


ADD 


$4,SP 


5024 1 % : 




50240$: 





H9 



Gl OBAl. 


Am AS 


MACi 11 


30U046) 


Ob -API 


CZTSHO. 


Pll 06 -APR 84 


08:49 




4*01 










4602 


013364 


000000 






460? 


013366 


000000 






4604 


013370 


000000 






4605 










4606 










460? 


013372 


040445 


052523 


050123 


4608 


013400 


041505 


020124 


040502 


4609 


CI 3406 


020104 


050123 


052117 


4610 


013414 


040440 


052106 


051105 


4611 


013422 


022440 


030504 


040445 


4612 


013430 


051040 


052105 


054522 


4613 


0134 36 


020054 


042045 


022461 


4614 


013444 


020101 


042522 


042520 


4615 


015452 


052101 


047045 


COO 


4616 


013457 


045 


022516 


041101 


4617 


013464 


042101 


052040 


050101 


4618 


013472 


020105 


053117 


051105 


4619 


013500 


046106 


053517 


0200 72 


4620 


013506 


044103 


047101 


042507 


4621 


013514 


052040 


050101 


020505 


4622 


013522 


047045 


047045 


000 


4623 


013527 


045 


051101 


052105 


4624 


013534 


054522 


043040 


044501 


4625 


013542 


042514 


020104 


04711? 


4626 


013550 


041040 


042101 


051440 


4627 


013556 


04 7520 


027124 


027056 


4628 


013564 


051105 


051501 


042105 


4629 


013572 


022441 


000116 




4630 
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SEQ 0111 



WTyCMO 
WTywRD 
WTYBRF* 



.WORD 
.WORD 
. WORD 



j STORAGE 
j STORAGE 
j STORAGE 



FOR WRITE CMD WHILE RETRYING 

FOR WRITE CMD WORD WHILE RETRYING 

FOR WRITE BPCR WHILE RETRYING 



BTMSG1: , ASCIZ /rfASUSPECT BAD SPOT AFTER tfDltfA RETRY, «DL*A REPEATS/ 



BTMSG2: .ASCIZ /*N*ABAD TAPE OVERFLOW: CHANGE TAPE!*N*N/ 



BTMSG3: .ASCIZ /*ARETRY FAILED ON BAD SPOT . . .ERASEDUN/ 



.EVEN 



19 



GLOBAl 


ARf AS 


MAO 11 


30(1046) 


06-APF 


CZTSHD, 


PI 1 06 -APR -64 


08}49 




4651 










4652 










46.5? 










4654 










4635 










4656 










4657 










4658 


015576 








4659 


013576 


013737 


003346 


003552 


4640 


013604 








4641 


013604 


012737 


104410 


003546 


464? 


013612 








4645 


013612 


013737 


003346 


002310 


4644 


013620 


042737 


004000 


002310 


4645 


013626 








4646 


013626 


013737 


002310 


003350 


4647 


CI 3634 








4648 


013634 


012737 


000001 


002312 


4649 


013642 








4650 


013642 


005037 


003354 




4651 


013646 


004737 


007344 




4652 


013652 


004737 


010326 




4653 


013656 


004737 


010636 




4654 


013662 


004737 


016060 




4655 


013666 








4656 


013666 


105737 


003451 




4657 


013672 


001426 






4658 


013674 








4659 


013674 


013737 


003346 


003352 


4660 


013702 








4661 


013702 


012737 


100411 


003316 


4662 


013710 








4665 


01373 


013737 


003346 


002310 


4664 


013716 








4665 


013716 


013737 


002310 


003350 


4666 


013724 


004737 


007344 




4667 


013730 


004737 


010326 




4668 


013734 


004737 


010656 




4669 


013740 


004737 


016060 




4670 


013744 








4671 


013744 


105037 


00M51 




4672 


013750 








4675 


013750 








4674 


013750 


000207 






4675 










4676 










4677 


013752 








4678 


013752 


026527 


002532 


177774 


4679 


013760 


001003 






4680 


015762 


000137 


014100 




4681 


013766 








4682 


013766 


000400 






4683 


013770 








4684 


013770 








4685 


013770 








4686 


013770 
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SUBR TO BACSPACE ONE RECORD 

IF THE ERASE FLAG IS SET, THEN ERASE THAT RECORD 



BORERS: 



TNPUTS: 
OUTPUTS; 
REGISTERS: 
CALLS: 

LET PCMDWD 

LET CMDWRD 

LET CMDPKT 



ERSFLG 



00 ERASE 



EXCUTE, GOWAIT, CKHAE 



- CMDWRD 
tfSRR 
CMDWRD CLR 



LET CMDSAV :» CMDPKT 

LET CMDPKTfCP.ADL :« 01 

LET CMDLG j - 00 

JSR PC.CMDAC 

JSR PC, EXCUTE 

JSR PCGOWAIT 

JSR PC, CKHAE 

IFB ERSFLG NE 00 THEN 



LET 


PCMDWD 


:> CMDWRD 


LET 


CMDWRD 


:» OERS 


LET 


CMDPKT 


:• CMDWRD 


LET 


CMDSAV 


:■ CMDPKT 



SET COMMAND TO SPACE REV 



BY tfBRF.C 



WHEN ERASE FLAG IS SET, DO ERASE 



JSR PC.CMDAC i 

JSR PC, EXCUTE 

JSR PC.G0WAI7 

JSR PC, CKHAE 

LET ERSFLG :B* #0 

ENDIF 

RTS PC 
; SUBR TO REWRITE A BADL^ WRITTEN RECORD 

REWRTs IF DEVTBLCR5) EQ ONINUSE THEN jBTL 



SEQ 0112 



MOV 


CMDWRD, P 


MOV 


#SRR,CMD 


MOV 
BIC 


CMDWRD , C 
#BRF XX 


MOV 


CMDPKT, C 


MOV 


frl.CMCPK 


CLR 


CMDLG 



TSVB 
BEQ 


ERSFLG 
50242$ 


MOV 


CMDWRD, P 


MOV 


4ERS.CMD 


MOV 


CMDWRD. C 


MOV 


CMDPKT X 



CLRB 



ERSFLG 



50242$ 



JMP 1$ 
ELSE 

ENDIF 

LET PCMDWD 



jBTi 
iBTL 



iBTL 



CMP 
BNE 



BR 



5024 3$ 



DEV T BLlR 
5024 3$ 



50244$ 



CMDWRD 



50J44$ 

{RESTORE WRITE COMMAND PACKET 



J 9 



GLOBAl 


ARf AS 


MACU1 


30( 1046) 


Ofc-AP 


CZlaHD. 


Pll 06- APR -84 


08:49 




4687 


013770 


013737 


003346 


003352 


4688 


013776 








4689 


013776 


013737 


013366 


003346 


4690 


014004 








4691 


014004 


013737 


013364 


002310 


4692 


014012 








4693 


014012 


013737 


v 023 10 


003350 


4694 


014020 








4695 


014020 


013737 


003334 


002312 


4696 


014026 








4697 


014026 


013737 


013370 


002316 


4t>96 


014034 








4699 


014034 


012737 


000002 


003354 


4 700 


014042 


004 737 


007344 




4701 


014046 


004737 


010326 




4 702 


014052 








4703 


014052 


026527 


002532 


177774 


4 704 


014060 


001003 






4 705 


014062 


000137 


014100 




4 706 


014066 








4707 


014066 


000400 






4 708 


014070 








4 709 


014070 








4710 


014070 








47H 


014070 


004 737 


010636 




4712 


014074 


004737 


016060 




4713 


014100 


000207 
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LET 


CMDWRD :- UTYWRD 


i 


LET 


CMOPKT : - WTYCMD 


J 


LET 


CMDSAV :- CMOPKT 


} 


LET 


CMDPKT*CP.ADL :- 


DATAWT 


LET 


CMDPKT*CP.CNT :■ 


WTYBRF 


LET 


CMDLG : • 02 





JSR PC.CMDAC 

JSR PCEXCUTE 

IF DEVTBLCR5) EQ 4NINUSE THEN 



JMP 1$ 
ELSE 



U: 



ENDIF 

JSR PC.GOnlAIT 
JSR PC.CKHAE 
RTS PC 



S RE WRITE RECORD 
iBTL 



jBTL 
iBTL 



iBTL 







SEQ 0113 




MQV 


CMOWRO.P 




MOV 


WTYWRD. C 




MOV 


WTYCMD, C 




MOV 


CMDPKT.C 




MOV 


DATAWl\C 




MOV 


WTYBRF, C 




MOV 


02, CMDLG 




CMP 
BNE 


DEVTBLCP 
50245$ 


50245$: 


BR 


50246$ 


50246$ j 







I<9 



GLOBAL 


AREAS 


MACU1 


30(1046) 06 -API 


CZTSHD. 


Pll 06-APR-84 


08:49 


4714 








4715 








4 716 








4717 








4716 








4719 








4 720 








4721 


014102 






4722 


: 14 102 


105737 


003412 


4723 


014106 


001126 




4 724 


014110 






4/25 


014110 


105237 


003412 


4 726 


014114 






4727 


014114 


C13704 


003354 


4726 


014120 






4 729 


014120 


005704 




4730 


014122 


001520 




4 731 


014124 






4732 


014124 


1627C4 


000002 


4 733 


014130 






4734 


014130 


010502 




4735 


014132 


066402 


014366 


4'/ 36 


014136 


062702 


002554 


473? 


014142 






4738 


014142 


0637^2 


003344 


4739 


014146 






4740 


014146 


023737 


002340 003344 


4741 


014154 


101002 




4742 


014156 






4743 


014156 


163712 


002340 


4 744 


014162 






4745 


014162 






4 746 


014162 






4 74 7 


014162 


010203 




4748 


014164 


062703 


000010 


4 749 


014170 






4 750 


014170 






475< 


014170 


021227 


001747 


4752 


014174 


003404 




4753 


014176 






4754 


014176 


162712 


001750 


4755 


014202 






4756 


014202 


005213 




4757 


014204 






4758 


014204 


000771 




4 759 


014206 






4 760 


014206 






4 761 


014206 


010302 




4 762 


014210 


062702 


000010 


4 763 


014214 






4 764 


014214 






4 765 


014214 


021327 


00174 7 


4 766 


014220 


0034 04 




4>6 7 


014222 






4 7o8 


014222 


162713 


001750 


4769 


014226 
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SECTION 



SEQ 0114 



LET ERLOG ;B- ERLOG * 41 
LET R4 :- CMOLG 
IF R4 NE 40 THEN 



LET R4 j- R4 



42 



t SUBROUTINE TO LOG BYTES READ/WRITTEN. 

: ALSO UPDATES READ/WRITE ERROR COUNTERS, 
j INPUTS: 
; OUTPUTS: 

REGISTERS: R2, R3, R4 . 
; CALLS: 

LOG:: IFB ERLOG EQ 40 THEN {IF DATA AND ERRORS HAVE NOT BEEN LOGGED 

TSTB ERLOG 
BNE 5024/$ 
SET LOG DONE FLAG. 

INCB ERLOG 
GET CURRENT CMD LOGGING CODE. 

MOV CMDLG.R4 
IF THERE IS A CODE THEN: 

TST R4 
BEQ 50250$ 
j ADJUST THE CODE FOR TABLE INDEX. 

SUB 42, R4 
LET R2 :» R5 * BINCCR4) * 4CNTBGN ;R2 a ADR OF BYTE COUNT LSW. 

MOV R5.R2 
ADD BINCCR4) 
ADD 4CNTBGN. 
LET CR2) :- CR2) * BRFCNT ;ADD BRF TO LSW. 

ADD BRFCNT ,C 
IF MSGPKTfMS.RFC LOS BRFCNT THEN : IF THE RFC IS LOWER OR THE SAME AS 

CMP MSGPKT-M 
BHI 5025 1* 
LET CR2) :- (R2) - MSGPKT+MS.RFC {SUBTRACT RFC FROM EXPECTED BRF. 

ENDIF 

LET R3 :* R2 * 410 

WHILE (R2) GT 4999. DO 

LET CR2) :- (R2) 41000. 
LET CR3) :* (R3) * 41 

ENDDO 

LET R2 :- R3 * 410 
WHILE CR3) GT 4999. DO 

IF.T CR31 i* (R3) - 41000. 

LET CR2) :» (R2) > 41 {3RD WORD. 







SUB 


MSGPKTfM 




50251 t: 






;R3 » ADR OF 


2ND WORD. 










MOV 


R2.R3 






ADD 


410, R3 




50252$ : 










CMP 


CR2).#99 






BLE 


50253$ 


{UPDATE BYTE 


COUNT 










SUB 


41000., ( 


;2ND WORD. 












INC 


CR3") 






BR 


50252$ 




50253$: 






{ R2 = ADR OF 


3RD WORD, 










MOV 


R3.R2 






ADD 


G10.R2 




50254$: 










CMP 


(R3\.'>99 






BLE 


50255$ 


{UPDATE Bi T£ 


COUNT 










SUB 


41000, ,(, 



L.9 



GLOBAL 


ARFAS 


MAO 11 


30(1046) 


CZTSHD. 


PU 06-APR-84 


08; 49 


4770 


014226 


005212 




4771 


014230 






4772 


014230 


000771 




4773 


014232 






4774 


014232 






4775 


014232 


010203 




4 776 


014234 


062703 


000010 


4 7 77 


014240 






4778 


014240 






4779 


014240 


021227 


001747 


4780 


014244 


003404 




4781 


014246 






4 782 


014246 


162712 


001750 


4783 


014252 






4 784 


014252 


005213 




4785 


014254 






4786 


014254 


000771 




4787 


014256 






4 788 


014256 






4789 


014256 


105737 


003413 


4 790 


014262 


001440 




4791 


014264 






4 792 


014264 


010502 




4793 


014266 


066402 


014374 


4 794 


014272 


062702 


002714 


4795 


014276 






4 796 


014276 


105737 


003414 


4 797 


014 302 


001404 




4798 


014 304 






4799 


014304 


062702 


000010 


4800 


014310 






4801 


014310 


005212 




4802 


014312 






4803 


014312 


000424 




4004 


014314 






4805 


014314 






4806 


014314 


005212 




4807 


014316 






4808 


014316 


105737 


002211 


4809 


014322 


001020 




4810 


014324 






4811 


014324 


105737 


003446 


4812 


014330 


001015 




4813 


014332 


105737 


002205 


4814 


014336 


001412 




4815 


014540 






4816 


014340 


013746 


003404 


4817 


014344 


012746 


005073 


4818 


014350 


012/46 


000002 


4819 


014354 


010600 




4820 


014356 


104414 




4821 


014360 


062706 


000006 


4822 


014564 






4823 


014364 






4824 


014364 






4825 


014364 
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ENDDO 

LET R3 :- R2 ♦ 410 

WHILE (R2) GT #999. DO 

LET <R2) ;* (R2) - 41000, 
LET CR3) :» CR3) > #1 
ENDDO 



50255$ 

;R3 * ADR OF 4TH WORD. 



50256$ 

I UPDATE BYTE COUNT 
j4TH WORD. 



INC 
BR 



MOV 
ADD 



CMP 
BLE 

SUB 

INC 

BR 



SEQ 0115 
CR2) 
50254$ 



R2,R3 
410, R3 



CR2),499 
50257$ 

41000. ( C 

CR3) 

50256$ 



IFB RWERR NE 40 THEN 



50257$: 

}IF R/W ERROR, UPDATE ERROR COUNT. 

TSTB RWERR 

BEQ 50260$ 
LET R2 :« R5 * EINCCR4) * 4WRREC } R2 * ADR OF COUNTER, 

MOV R5.R2 

ADD EINCCR4) 

/;DD 4WRREC.R 

{IS THE ERROR UNRECOVERABLE? 

TSTB UNREC 

BEQ 50261$ 

{YES, POINT TO NEXT COUNTER. 

ADD 410, R2 

{UPDATE THE ERROR COUNTER 

INC CR2) 

{ELSE - IF ERROR IS RECOVERABLE: 

BR 50262$ 
50261$: 

{UPDATE THE ERROR COUNTER 

INC CR2) 

{IF ERROR RECOVERY IS ENABLED: 

TSTB IREC 

BNE 50263$ 
IFB DROPED EQ 40 ANDB ERCVER NE 40 THEN j IF UNIT HAS NOT BEEN OR 

TSTB DROPED 

BNE 50264$ 

TSTB ERCVER 

BEQ 50264$ 
PRINTS 4NURTY1.RETRYC ;PRINT 4 OF RETRIES TO RECOVER 

MOV RETR1C,- 

MOV 4NURTU, 

MOV 42. (SP) 

MOV SP.RO 

TRAP C$PNTB 

ADD 46 , SP 
END IF {PROVIDED PRINT HAS BEEN ENABLED 

50264$. 

END IF 

50^63$; 



IFB UNREC NE 40 THEN 

LET R2 :« R2 * 410 
LET (R2) ;= (R2) ♦ 41 
ELSE 

LET (R2) : * (R2) ♦ 41 
IFB IREC EQ 40 THEN 



M9 



GLGHAl. 


ARt AS 


MAC'S 11 


30(104t>) 


CZTSHD. 


Pll 06-APR-84 


00 {49 


4826 


014364 






4827 


014364 






4828 


014364 






4829 


014364 






4830 


014364 






4831 


014364 






4832 


014364 






4833 


014364 






4834 


014364 


000207 




4835 








4836 


014366 


oooooo 




4837 


014370 


0^0040 




4838 


014372 


000100 




4839 








4840 


014374 


oooooo 




4841 


014376 


000020 




4842 


014400 


000040 




4843 








4844 
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ENDIF 

ENDIF 



cNDIF 

ENDIF 

RTS PC 
; INDEXES 
BINC: 

40 

100 
j INDEXES 
EINC: 

20 

40 



SEQ 0116 



50262$ 
50260$ 
50250$ 

5024 7$ 



TO BYTE COUNTERS. 



TO READ/WRITE ERROR 



WRITE, 
READ REV 
READ FWD 
COUNTERS. 

WRITE. 
READ REV 
READ FWD 



N9 



GLOBAL 


ARF AS 


MAO 11 


30(104o) 


06-APf 


CZTSHO, 


Pll 06-APR-84 


08; 49 




4845 










4846 










484 7 










4848 










4849 










4850 










4851 










4852 










4853 










4854 


014402 








4855 


014402 


105737 


003442 




4856 


014406 


001435 






4857 


C14410 








4858 


014410 


013737 


003346 


003352 


4859 


014416 








4860 


014416 


012737 


104401 


003346 


4861 


014424 








4862 


014424 


012737 


000004 


003354 


4863 


014432 


004737 


014504 




4864 


014436 








4865 


014436 


026527 


002532 


177774 


4866 


014444 


001003 






4867 


014446 


000137 


014502 




4868 


014452 








4869 


014452 


000400 






4870 


014454 








48/1 


014454 








4872 


014454 








4873 


014454 








4874 


014454 


013737 


003346 


003352 


4875 


0144 2 








4876 


014462 


012737 


104001 


003346 


4877 


014470 








4878 


014470 


012737 


000006 


003354 


4879 


014476 


004737 


014504 




4880 


014502 








•1881 


01*502 








488? 


014502 


000207 
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SLQ 0117 



VKYDAT 



IF A WRITE/VERIFY COMMAND IS ISSUED, CONTROL IS THEN 

TRANSFERRED TO THIS SUBROUTINE TO READ REVERSE, CHECK DATA, 

READ FORWARD, CHECK DATA, THEN CONTINUE TO NEXT COMMAND. 

INPUTS: 

OUTPUTS; 

REGISTERS: 

CALLS: VFEXC. 

IFB VFYFLG NE #0 THEN 

LET PCMOWD :- CMDURO 
LET CMDWRD := 4RDR 
LET CMDLG := 44 



1$ 



JSR PC. VFEXC 

IF DEVTBLCR5) EQ 4NINU 


JMP 1$ 
ELSE 




ENDIF 




LET 


PCHDWD ; = 


CMDWRD 


LET 


CMDWRD ; = 


tfRDF 


LET 


CMDLG := 46 


JSR 

ENDIF 


PC, VFEXC 


RTS 


PC 


S RETURN. 



;IF DATA IS TO bfc VERIFIED: 




TSTB 


VFYFLG 


BEQ 


5v265$ 


j SAVE THE PREVIOUS COMMAND WORD 


. 


MOV 


CMDWRD. P 


{COMMAND IS READ REV. 




MOV 


4RDR , CMD 


; SET UP CMD LOGGING INDEX. 




MOV 


44 , CMDLG 


j GO READ ALL THE RECORDS REV. 




jBTL 




CMP 


DEVTBLCR 


BNE 


50266$ 


}8TL 




;BTL 




BR 


50267$ 


50266$: 





jBTL 

50267$; 
sSAVF THE PREVIOUS COMMAND WORD. 

MOV CMDWRD, P 
{COMMAND IS READ FWD. 

MOV CRDF.CMP 
{SET UP CMD LOGGING INDEX. 

MOV 46, CMDLG 
{GO READ ALL RECORDS FWD. 

50265$: 



trio 



GLOBAL AREAS 
C2TSHD.PU 



4885 
4684 
4885 
4886 
488: 
4888 
488^ 
4890 
4891 
4893 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
4911 
491? 
4913 
4914 
4915 
4916 
4917 

4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 

492 7 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 

493 f 
4958 



MAO 11 301 1046) 
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SEQ Ollfl 



014504 

014504 

014512 

014520 

014520 

014524 

014526 

014526 

014534 

014534 

014534 

014534 

014542 

014550 

014550 

014554 

014554 

014554 

014562 

014564 

0145/0 

014574 

014574 

014574 

0V4602 

014604 

014604 

014612 

014614 

014614 

014622 

014624 

014624 

014632 

014634 

014634 

014640 

014642 

014646 

014646 

014646 

014646 

014650 

014650 

014654 

014654 

014654 

014654 

014654 

Q 14654 



013737 003346 

042737 004000 

105737 003444 
001403 



013/37 
013737 



023737 
002071 
004 73 7 
004 737 



02652 7 
001442 

032737 
001421 

032765 
001014 

032765 
001406 

105737 
00140? 
004737 



002310 
003336 



005037 003340 



002532 

000400 

000002 

00000' 

003450 
014750 



000402 

OC4737 014750 



00.-310 
002310 



0527J7 010000 002310 



003350 
002312 



003340 003342 

007344 
015452 



177777 
003346 
0C3426 
003426 



SUBROUTINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE, 

INPUTS: 

OUTPUTS: 

REGISTERS: R2 

CAILS: CMDAC, 'IRSTU, Vf ISU, NEXTU, CKHAE . 

VFEXCm LET CMDPKT :• CMDWRD CLR.Oy O0RK.C iCOMMAND PACKET - READ REV OR *WD. 

MOV CMDWRC.C 
BIC OBRr.C.C 
1KB SWttFLG NE 00 THEN | IF BtTES ARE TO BE SWAPPED: 

TSTB SW6FLG 
BEQ 50270$ 
LET CMDPKT j- CMDPKT SET, Br OSWB»C jSET SWAB BIT IN CMO PACKET. 

BIS OSWB.C.C 



ENDir 

LET CMDSAV :• CMDPKT 



MOV DA T ARD , CMDPK T ♦ CP , ADl 
LET NCNT : • 00 

WHILE NCNT LT NCNT1 DO 



JSR PC, CMDAC 
JSR PC.FIRSK) 



50270$: 
j SAVE COMMAND PACKET 1ST WORD. 

MOV CMDPK T,C 
ISAVE BUFFER START ADOPLSS, 
jCLEAR NUMBER OF OPERATIONS. 

CLR NCNT 
I WHILE THERE ARE RECORDS REMAINING: 

502715: 

CMP NCNT.NCN 
BGE 50272t 
j STORE CMD ASCII IN ERROR MSC. 
i SET UP FOR UPST UNIT, 
WHILE 0EVTBLCR5) NF ©END DO jWHIIE THERE APF. DEVICES REMAINING: 

50273$: 

CMP DEVTBLCP 

BEQ 502 74$ 

IF ©MOD. CO SET IN CMDWRD THtN j IF C'MD IS REVERSE THEN: 

BIT JMOD.CO. 

BEQ 502 "5* 

IF 0X0. BOT NOT SKIN F0TFLCKR5) THEN i IF NOT AT BOT 

BIT 0X0. BOT, 

BNE 50276$ 

If 0X0. EOT SM'TN E0THG(R5> THEN jUUT X r AT EOT 

BIT 0X0. EOT, 

BEQ 5027 7$ 

jANP all others at eot 

TSTB ALL EOT 

BEQ 50300$ 

. V£N READ VERIFt 
I iF NOT ALL AT EOT, FREEZE 

50500$: 
I IF NOT AT BO* AND 

BR 50301$ 

502 7 7 $ : 
I NOT AT fcOT, READ V*' > 



IFH All EOT NE 00 THEN 



JSR PCVFISU 
hNOlF 



ELSE 



JSR PC.VEISU 
tNDtt 



000412 



fNDU 
EL St 



50301$: 

50.\»6$: 
ttLtit U CMD U NOT REVER E; 

UR 



SO 50 J I 



CIO 



GLOBAL 


ARE AS 


MACU1 


30( 104o) 


06 -APR 84 OR 


CZTSHD. 


(Ml 06 -APR. 84 


08:49 


GLOBAL 


4*5** 


014656 








4940 


014656 








494 1 


014656 


032765 


OOOOOl 


0034 ^6 


494,? 


014664 


001404 






4043 


014666 


032737 


COOOOi 


003346 


4944 


014674 


001002 






4 945 


014676 








4946 










494 7 


014676 


004737 


014 750 




4948 


014 702 








4949 


014 702 








4950 


01470.? 








4951 


014702 








4952 


014 702 


004 737 


015520 




4953 


014 706 








4954 


014706 


00073? 






4955 


014710 








4956 


014710 


004 757 


016060 




495? 


014714 








4958 


014714 


02653 7 


002532 


177774 


4959 


014722 


001003 






4960 


014724 


000137 


014746 




4961 


014730 








496? 


014730 


000400 






4963 


014732 








4964 


014732 








4965 


014732 








4966 


014732 








496^ 


014732 


005237 


003340 




4968 


014 736 








4969 


014 736 


013737 


003346 


00535<? 


4970 


014744 








4971 


014 744 


000703 






4972 


01474b 








4973 


014746 


000207 
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SEQ 0119 



50275$: 
IF 0X0, EOT NOTSETIN P0mti(R5) OH GCMD.CO NOTSETIN CMDWRD THEN 

BIT 0X0. LOT, 
BEQ 50303$ 
BIT OCMO.CO, 
BNE 50304$ 
50305$; 
j IE NOT AT EOT OR NOT A MOTION CMD THEN: 



U: 



JSR PC.VFISU 


j ISSUE CMD, CHECK STATUS AND 


DATA. 


END IF 




50304 $ j 




ENDI^ 




50302$: 




JSR PC.NEXTU 




jGO FIND THE NEXT UNIT. 




ENDDO 












BR 


502/3$ 






502/4$: 




JSR PC.CKHAE 




{CHECK FOR HALT AFTER EACH CMD 




IF 0EVTBLCR5) EQ 


ftNINUSE 


THEN |BTI. 








c^r 


DEVTBL (R 






BNf. 


50305$ 


JMP 1$ 




jBTl 




ELSE 




jBTL 








BR 


50306* 






50305$: 




ENDTF 




iBTL 

50306$: 




LET NCNT : - NCNT 


♦ 0! 


1 UPDATE THE RECORD COUNT. 








INC 


NCNT 


LET PCMDWD : * CMDWRD 


iSAVE PREVIOUS COMMAND WORD. 








MOV 


CMDWRD.P 


ENDDO 












BR 


50271$ 






502 7£ 9: 




RTb PC 




j RETURN. 





D10 



Gl ORAL are AS 
C/TSHO.Pll 



4 9 74 

49; r .> 

49 7o 
497/ 
4978 
4979 
4980 
4^81 
^82 
4983 
4984 
4985 
4936 
4987 
4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 

5008 
5009 

5010 
5011 
5012 



NACU1 3CK 104b) 
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014750 
014 750 
01 1754 
014760 
014 760 
014760 
014 764 
014766 
014766 
014772 
014772 
014774 
014774 
015000 
015000 
015004 
015006 
015012 
015012 
015012 
015012 
015016 
015020 
015020 
015026 
015030 
015034 
015034 
015034 
015034 
015034 



013702 003336 
062702 000010 



020237 
001403 



003336 
177777 
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5E } 0120 



012742 

000772 

004737 010326 

105737 003446 

001002 

004737 010636 



105737 003446 
001006 

032765 000002 003426 

001002 

004737 015036 



000207 



SUBROUTINE TO T SSUE COMMAND, AWAIT INTERRUPT, 

CHECK STATUS, CHECK OAFA, 

INPUTS; 

OUTPUTS? 

REGISTERS; R2 

CALLS: ' EXCUTE, GOWAIT, CKDATA. 



vnsu;; 



LET R2 :« DATARO » 08, 
WHILE R2 NF OATARD DO 

LET -(R2) :- #1 

ENDDO 



JSR PC, EXCUTE 

IFB DROPED EQ 00 THEN 



lINIT READ BUFFER POINTER. 

MOV 
ADD 

{UNTIL 8 BYTES HA'-E BEEN SET, 

50: f .O7$: 

CMP 
BEQ 

lINIT READ BUFFER, 

MOV 



BR 



OATARD. R 
08. ,M2 



R2,DATAR 
50310$ 

0-1. CR2 

50307$ 



PC, GOWAIT 
IFB DROPED EQ 00 THEN 



JSR 
END IF 



50310$: 

jGG EXECUTE THE COMMAND. 

j IF UNIT HAS NOT BEEN DROPPED THEN; 

TSTB DROPED 
BNE 50311$ 

iGO WAIT FOR DONE BIT. 



50311*: 

{IF UNIT HAS NOT BEEN DROPPED THEN: 

TSTB DROPED 
BNE 503121 
IF 0X0. BOT NOTSETIN E0TFLGCR5) THEN jWHEN NOT REVERSED INTO B 

BIT 0X0. COT, 
BNE 50313$ 
JSR PC, CKDATA jGU VERIFY DATA. 
END IF 

50313$: 
ENOIf 

50312$; 
RTS PC 



E10 



GLOB At 


ARMS 


MACU1 


30C 104b) 


CZTSHD, 


Pll 06^APR-84 


08; 49 


5013 








5014 








5013 








5016 








501? 








5018 








5019 








5020 


015036 






5021 


015036 


013703 


003344 


5022 


015042 


163703 


002340 


5023 


015046 






5024 


015046 


005703 




5025 


015050 


001015 




5026 


015052 






5027 


015052 


104456 




5028 


015054 


000021 




5029 


015056 


004164 




5030 


015060 


005224 




5031 


015062 






5032 


015062 


012746 


005010 


5033 


015066 


012746 


000001 


5034 


015072 


010600 




5035 


0150 74 


104414 




5036 


015076 


062706 


000004 


5037 


015*02 






5038 


015102 


000560 




5039 


015104 






5040 


015104 






5041 


015104 


020337 


003344 


5042 


015110 


101417 




5043 


015112 






5044 


015112 


104456 




5045 


015114 


000021 




5046 


015116 


004164 




5047 


015120 


005224 




5048 


015122 






5049 


015122 


013 746 


002316 


5050 


015126 


012746 


005031 


5051 


015132 


012746 


000002 


5052 


015136 


010600 




5053 


015140 


104414 




5054 


015142 


062706 


000006 


5055 


015146 






5056 


015146 


000536 




5057 


015150 






5058 


015150 






5059 


015150 


010337 


015446 


5060 


015154 


005337 


015446 


5061 


015160 


005037 


015450 


5062 


015164 


005002 




5063 


015166 






5064 


015166 


013703 


003334 


5065 


0151/2 






5066 


015172 


013704 


0OS336 


5067 


015176 






5068 


015176 


105737 


003447 
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SEQ 0121 



SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 

AND PRINT ERROR MESSAGE ON MISCOMPARE. 

INPUTS: 

OUTPUTS: 

REGISTERS! R2, R3 t R4 . 

CALLS: GCMDA 

CKDATAn LET R3 :- BRFCNT - MSGPKT »MS.RFC {COMPUTE REC LENGTH READ 
IF R3 EQ 00 THEN 

ERRHRD 17,WTVERM,DTAERM 



PRINTb 0DTA£R4 



ELSE 

IF R3 HI BRFCNT THEN 

ERRHRD 17.WTVERM.DTAERH 

PRINTB 0DTAER5.CMDPKT.CP.CNT 



ELSE 

LET CKDCNT : - R3 - 01 

CIR CKOFF 

Cl.R R2 

LET R3 : - DATAWT 

LET R4 ♦ - DATARD 

IFB T1SWB NE #0 THEN 



MOV 


BRFCNT, R 


SUB 


MSGPKT *M 


{WHEN NO DATA RECEIVED 




TST 


R3 


BNE 


50314$ 


{PRINT ERROR AND EXIT 




TRAP 


C$ERHRD 


.WORD 


17 


.WORD 


WTVERM 


.WORD 


OTAERM 


{COMPARE ROUTINE 




MOV 


O0TAER4, 


MOV 


01, -CSP) 


MOV 


SP.RO 


TRAP 


C$PNTB 


ADD 


04, SP 


BR 


50315$ 


50314$: 




j WHEN REC READ IS LONGER 




CMP 


R3,BRFCN 


BLOS 


50316$ 


;THAN EXPECTED, PRINT 




TRAP 


CSERHRD 


.WORD 


17 


.WORD 


UTVERM 


.WORD 


DTAERM 


;AN ERROR MESSAGE 




MOV 


CMOPKi *C 


MOV 


ODTAER5, 


MOV 


02, -CSP) 


MOV 


SP,RO 


TRAP 


CSPNTB 


ADD 


06, SP 


{AND EXIT ROUTINE 




BR 


50317$ 


50516$; 




{SAVE VERIFICATION LENGTH • 1. 


MOV 


P3.CK0CN 


DEC 


CKOCNT 


{CLEAR OF BITES IN ERROR COUNTER. 


{ INIT BITE COUNTER 




{GET URITE BUFFER ADDRESS. 




MOV 


DATAWT, R 


jGET READ BUFFER ADORFSS. 




MOV 


DATARf.R 


{WHEN RUNNING TESTl-SUB K\ 




TSTB 


1 iSWB 



10 



GLOBAL AR£ AS 
CZTSHD.PU 



MAC 111 30(1046) 
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SEQ 0122 



50o9 

5070 

5071 

50?,? 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083 

5084 

5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

510? 

5108 

5109 

5110 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 



015202 

015204 

015206 

015206 

015206 

015206 

015206 

015206 

015212 

015214 

015214 

015220 

015222 

015222 

015230 

015232 

015234 

015236 

015236 

015236 

015236 

015236 

015236 

015236 

015240 

015242 

015246 

015250 

015254 

015260 

015260 

015262 

015264 

015266 

015270 

015270 

015274 

015300 

015306 

015312 

015320 

015320 

015326 

015330 

015330 

015332 

015336 

015340 

015344 

015346 

015352 

015356 

015360 

015362 

015366 

015366 



001401 
000313 



020237 
001011 

105 737 
001406 

032737 
001002 
105723 
105724 



121314 
001452 
005737 
001010 
005265 
005265 

104456 
000021 
004164 
005224 

005237 
111437 
042737 
111337 
042737 

023727 
002017 

005046 
153716 
005046 
153716 
010246 
012746 
012746 
010600 
104415 
062706 



SWAB 

ENDIF 



CR3) 



50320$ 



015446 



003444 



000001 015446 



015450 

003274 
003304 



015450 

003364 

177400 003364 

003366 

177400 003366 

015450 000013 



005366 

003364 

004677 
000004 

000012 



2$; 



REPEAT 
IF R2 



BEQ 
tSWAP FIRST WORD OF WRT BFR 
{WHICH CONTAINS THE RECORD COUNT 

503205: 
{REPEAT UNTIL ALL DATA IS COMPARED; 

50321$! 
j IF THIS IS THE LAST BYTE THEN: 

CMP R2.CKCCN 
BNE 50322$ 
IFB SWBFLG NE #0 THEN ; IF BYTE SWAPPING IS ENABLED THEN: 

TSTB SWBFLG 
BEQ 50323$ 



EQ CKDCNT THEN 



IF 0BITOO NOTSETIN CKDCNT THEN {IF RECORD LENGTH IS ODD 




BIT 


0BITOO,C 




BNE 


50324$ 


TSTB CR3)» 


;LAST BYTE WILL BE IN 




TSTB (R4)* 


{THE UPPER BYTE. 




END IF 


50324$: 




END IF 


50323$: 




ENDIF 


50322$: 




CMPB CR3),CR4) 


{ARE THEY EQUAL. 




BEQ 3$ 


;BR IF SO. 




TST CKDFF 


jl ST T^ME THRU? 




BNE 2$ 


{BR IF NOT. 




INC VFYCNTCR5) 


{INC THE VERIFY ERROR COUNTER. 


INC HRDCNTCR5) 


j INC THE HARD ERROR COUNT. 




ERRHRD 017.WTVERM.DTAERM 


{REPORT WRITE/VERIFY ERROR. 






TRAP 


C$ERHRD 




.WORD 


17 




.WORD 


UTVERM 




.WORD 


DTAERM 


LET CKDFF ;« CKDFF * 01 


{INCREMENT OF BYTES IN ERROR. 






INC 


CKDFF 


MOVB CR4),TIME1 


{SAVE WAS DATA FOR TYPOUT. 




BIC 0177400, TIME1 


{CLEAR GARBAGE. 




MOVB (R3),TIME2 


{SAVE SHOULD BE DATA FOR TYPOUT 


* 


BIC 0177400. TIME2 


{CLEAR GARBAGE. 




IF CKDFF LT 011. THEN 


{IF ERROR BYTE COUNT IS LESS THAN 11: 




CMP 


CKDFF, 01 




BGE 


50325$ 


PRINTX MDTAER2,R2,<B,TIMEl> t <B,TIME2> {PRINT EXP * ACT 


DATA. 




CLR 


-CSP) 




BISB 


TIME2.CS 




CLR 


-CSP) 




BISB 


TIMEl.vS 




MOV 


R2 , - ( SP ) 




MOV 


0DTAER2, 




MOV 


04, -CSPT 




MOV 


SP.RO 




TRAP 


C$PN T X 




ADD 


012 ,SF 



ENDIF 



50325$ 



G10 
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SEQ 0123 



51*25 


015366 


105723 




5126 


015370 


105724 




5127 


015372 


105722 




5128 


015374 






5129 


015374 


02023 7 


015446 


5130 


015400 


003702 




5131 


015402 






5132 


015402 


005237 


015446 


5133 


01.5406 






5134 


015406 


005737 


015450 


5135 


015412 


001414 




5136 


015414 






5137 


015414 


013746 


015446 


5138 


015420 


013746 


015450 


5139 


015424 


012746 


C04 746 


5140 


015430 


012746 


000003 


5141 


015434 


010600 




5142 


015436 


104414 




5143 


015440 


062706 


000010 


5144 


015444 






5145 


015A44 






5146 


015444 






5147 


01544* 






5148 


015444 






5149 


015444 






5150 


015444 


000207 




5151 








5152 


015446 


000000 




5153 


015450 


000000 





3$: 



TSTB (R3)* 
TSTB (R4)» 
TSTB CR2)» 
UN T IL R2 GT CKDCNT 



LET CKDCNT :* CKDCNT ♦ 01 
IF CKDFF NE 00 THEN 



PRINTB 0DTAER3.CKDFF .CKDCNT 



lUPOATE WRITE BUFFER ADDRESS. 
; UPDATE READ BUFFER ADDRESS. 
,UPDATE BYTE COUNTER. 
{END OF DATA COMPARE REPEAT LOOP. 

CMP R2.CKDCN 
BLE 50321$ 
j CKDCNT EQUALS RECORD LENGTH. 

INC CKDCNT 
j IF COMPARE ERROR HAS OCCURED THEN: 

TST CKDFF- 
BEQ 50326$ 
jPRINT OF BYTES IN ERROR. 



ENDIF 

ENDIF 

ENDIF 

RTS PC 

CKDCNT: .WORD 
CKDFF: .WORD 







MOV 


CKDCNT , 






MOV 


CKDFF, -( 






MOV 


O0TAER3, 






MOV 


03,-CSP) 






MOV 


SP.RO 






TRAP 


C$PNTB 






ADD 


010. SP 




50326$: 








50317$: 








50315$: 






{OTHERWISE, 


RETURN. 







{0 OF BtTES TO BE VERIFIED -1 
;0 OF BrTES IN ERROR COUNTER. 



H10 



GLOBAl ARIAS 
CZTSHD.PJ1 



5154 
5155 

5156 

5157 

515S 

5159 

5160 

5161 

5162 

5163 

5164 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 



MACUl 30( 104t>) 
06 -APR 84 08:49 
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GLOBAL SUBROUTINES SECTION 



SEQ 0124 



5207 
5208 
5209 



015452 
015452 
015456 
015456 
015460 
015460 
015460 
015466 
015470 
015470 
015474 
0154 74 
015476 
015476 
015476 
015504 
015506 
015506 
015510 
015510 
015510 
015510 
015516 



015520 
015520 
015524 
015530 
015530 
015530 
015530 
015534 
015534 
015542 
015544 
015544 
015552 



105037 
005005 

026527 
001003 

062705 

000771 



02652 7 
001001 

104444 



016537 
000207 



105037 
042705 



062705 

026527 
001772 

016537 
000207 



003446 

002532 
000002 



003446 
177770 



000002 
002532 

002532 



SUBROUTINE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 

INPUTS: 

OUTPUTS; 

REGISTERS: 

CALLS: 



FIRSTU:: LET DROPED :B» #0 
LET R5 :* 00 



I CLR UNIT DROPPED FLAG 
I CLR DEVICE POINTER. 



177774 



WHILE DEVT6LCR5) EQ ONINUSE DO {WHILE DEVICES ARE NOT IN USE: 

50327$; 



002532 177777 



002532 002074 



LET R5 :* R5 * #2 

ENDDO 

IF DEVTBLCR5) EQ OEND THEN 

DOCLN 
ENDIF 

LET L$LUN :• DEVTBLCR5) 
RTS PC 



CLRB 


DROPED 


CLR 
N USE: 


AS 


CMP 
BNE 


DEVTBLCR 
50330$ 


ADD 


#2,R5 


BR 


50327$ 



:POINT TO NEXT DEVICE. 



50330$; 
5 IF ALL UNITS HAVE BEEN DROPPED THEN: 

CMP DEVTBLCR 
BNE 50331$ 
jDO CLEAN CODE AND TERMINATE PASS. 

TRAP C$DCLN 

50331$: 
{SET UNIT IN "HEADER" FOR ERROR REPORT 

MOV DEVTBLCR 
{RETURN WITH 1ST DEVICE IN R5. 



J 



SUBROUTINE 10 FIND THE NEXT UNIT IN THE TEST CYCLE. 

INPUTS; 

OUTPUTS: 

REGISTERS: 

CALLS: 



1777/4 
0020 74 



NEXTU:: LET DROPED :B» 00 

bTC 0177770, R5 
REPEAT 

tl T R5 :* R5 ► 0?. 

UNTIL 0EVTBLCR5) NE ONINUSE 

LET L$LUN : ■ DEVT8LCR5) 
RTS PC 



j CLR UNIT DROPPED FLAG 

CLRB DROPED 
}8TL 
{REPEAT UNTIL THE NEXT DEVICE IS FOUND. 

50332$: 
{UPDATE DEVICE TABLE POINTER. 

ADD 02. R5 

CMP DEVTBLCR 

BEG) 50332$ 

3 SET UNIT H IN "HEADER" FOR ERROR REPOR T 

MOV DEVTBlaR 

{RETURN, 



110 



GLOBAL 


ARFAS 
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Pll 06-APR-84 
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5210 








5211 








5212 








5213 








5214 








5215 








5216 


015554 






5217 


015554 


013705 


003400 


5218 


015560 






5219 


015560 


005265 


003314 


5220 


015564 






5221 


015564 


013704 


002350 


5222 


015570 


042704 


000377 


5223 


015574 






5224 


015574 


016503 


002502 


5225 


015600 






5226 


015600 


005002 




5227 


015602 






5228 


015602 






5229 


015602 


020227 


000016 


5230 


015606 


001405 




5231 


015610 






5232 


015610 


012723 


177777 


5233 


015614 






5234 


015614 


062702 


000002 


5235 


015620 






5236 


015620 


000770 




5237 


015622 






5238 


015622 






5239 


015622 


012775 


002320 


5240 


015630 


004 737 


011170 


5241 


015634 


004737 


011224 


5242 


015640 






5243 


015640 


020427 


157400 


5244 


015644 


001005 




524 5 


015646 






5246 


015646 


104455 




524/ 


015650 


000020 




5248 


015652 


004504 




5249 


015654 


005372 




5250 


015656 






5251 


015656 


000402 




5252 


015660 






5253 


015660 


004737 


015776 


5254 


015664 






5255 


015664 






5256 


015664 






5257 


015664 


10573/ 


003411 


5258 


015670 


001404 




5259 


015672 






5260 


015672 


105237 


003446 


5261 


015676 


004737 


014X02 


5262 


015702 






5263 


015702 






5264 


015702 






5265 


015702 


104424 
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SEQ 0125 



DROPU: 



002452 



SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: MOVMSG, PRXST, LOG 

LET R5 :- R5SAVE {BTL 

HOV R5SAVE,R 
LET FTLCNTCR5) :» FfLCNTCR5 , > * #1 ;INCREMENT THE FATAL ERROR COUNT. 

INC FTLCNTCR 
LET R4 i- MSGPKT.M3.XS3 CLR.BY 4377 {GET UOIAG ERROR CODE FROM XSTAT3. 

MOV MSGPKT*M 
BIC £377, R4 
jADR OF THIS UNIT'S MSG PACKET. 

MOV MSGPKACR 
jCLR COUNTER. 

CLR R2 
{WHILE THERE ARE MORE LOCATIONS: 

503335; 

CMP R2,#MSGC 

EEQ 50334$ 

ilNIT THE MSG PACKET WITH ALL l'S 

MCV &-1.CR3) 

{UPDATE COUNTER. 

ADD *2,R2 



LET R3 :» MSGPKACR5) 

LET R2 :* 40 

WHILE R2 NE OMSGCNT DO 



LET (R3)» :- fl-1 
LET R2 j* R2 * #2 
ENDDO 



LET 5)TSDB(R5) j« 4GSCPK 

JSR PC.WSSR 

JSR PC.MOVMSG 

IF R4 EQ 0X3. RNY THEN 



ERRDF £16,RNYM>STAERM 



ELSE 



JSR PC, PRXST 
ENDTF 

UB RECLOG NE #0 THEN 



LET DROPED :B* ORQPED • #1 

JSR PC, LOG 

END IF 

OORPT 



BR 50333$ 
50334$: 

{INITIATE A GET STATUS COMMAND. 

MOV OGSCPK.a 

{WAIT A WHILE FOR SSR-1 

{MOVE MSG PACKET TO COMMON AREA. 

{IF WE HAVE A CAPSTAN RUNAWAY THEN: 

CMP R4,$X3.R 
BNE 50335$ 
{REPORT CAPSTAN RUNAWAY WITH TACH CNT. 

TRAP CtEROr 
.WORD 16 
.WORD RN>M 
.WORD STAERM 

{ELSE -IF NOT A RUNNAWA^ : 

BR 50336$ 
50335$; 

{PRINT EXTENDED STATUS REGISTERS. 

50336$: 

{IF THE RECORD HAS BEEN LOGGED THEN: 

1STB REClOG 

BE a 5033"$ 

{SET UNIT DROPPED FLAG. 

INCB DROPED 

{LOG DATA Fh i"ES ♦ RD WR ERRORS. 

503 V**: 
{PRINT PERFORMANCE REPORT 

TRAP C$DRPT 



J 10 
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SEQ 0126 



52b6 
526 7 
5268 
5269 
5270 
5271 
5272 
5275 
5274 
5275 
5276 
5277 
5273 
5279 
5280 
5281 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 



015704 
015704 
015710 
015712 
015712 
015716 
015716 
015716 
015716 
015724 
015724 
015726 
015730 
015730 
015732 
015732 
015740 
015742 
015742 
015746 
015750 
015752 
015754 
015756 
015756 
015762 
015762 
015762 
015762 
015762 
015762 
015766 
015766 
015772 



005 765 003254 
001402 

005365 003254 



016537 002532 015774 

010500 
006200 



104451 

026527 002532 
001.410 

105737 002211 

001005 

000240 

000240 

000240 

105237 003452 



105237 003446 

013705 003400 
000207 



177774 



DROPUA: IF PAGCNTCR5) NE 00 THEN 

LET PASCNTCR5) i- PASCNT(R'o) - *1 
ENDIF 



TST 
BEQ 

DEC 



PASCNTCR 
50340$ 

PASCNTCR 



50340$: 
LET OROPN j- DEVTBLCR5) {SAVE 4 OF UNIT TO BE DROPPED. 

MOV DEVTBLCR 
LET RO :- R5 SHIFT -1 jRO-LOGICAL DEVICE NUMBER 

MOV R5.R0 
ASR RO 
DODU RO ;DROP THE UNIT: EXEC BGNDU-ENDDU CODE IF IOU - 

TRAP C$DODU 
} IF UNIT NOT DROPPED 

CMP DEVTBLCR 
BEQ 50341$ 
{IF RECOVERY IS ENABLED THEN: 

TSTB IREC 
BNE 50342$ 



IF DEVTBLCR5) NE tfNINUSE THEN 
IFB IREC EQ 00 THEN 



015774 000000 





NOP 










NOP 










NOP 










LET STAFLG :B= STAFLG ► 


#1 


{SET START FLAG TO ENABLE 

INCB 


REWIND. 
STAFLG 




ENDIF 




50342$: 






ENDIF 




50341$: 




DRORTN: 


LET DROPED :B» DROPED * i>l 
LET R5 :• R5SAVE 
RTS PC 




{SET UNIT DROPPED FLAG. 

INCB 
{BTL 

MOV 
{RETURN. 


DROPED 
R5SAVE.R 


DROPN: 


.WORD 




;0 OF UNIT TO BE DRGPPED 





K10 



GLOBAL 


ARF AS 


MACU1 


30(1046) 


CZTSHD. 


Pll 06-APR-84 


08:49 


530? 








5303 








5304 








5305 








5306 








5307 








5308 


015776 






5309 


015776 


012746 


005157 


5310 


016002 


012746 


000001 


5311 


016006 


010600 




5312 


016010 


104<*15 




5313 


016012 


062706 


000004 


5314 


016016 






5315 


016016 


013746 


002350 


5316 


016022 


013746 


002346 


5317 


016026 


013746 


002344 


5318 


016032 


013746 


002342 


5319 


016036 


012746 


006217 


5320 


016042 


012746 


000005 


5321 


016046 


010600 




5322 


016050 


104415 




5323 


016052 


062706 


000014 


5324 


016056 


000207 




5325 








5326 








5327 








5328 








5329 








5330 








5331 








5332 








5333 








5334 








5335 


016060 






5336 


016060 


105737 


002204 


5337 


016064 


001430 




5338 


016066 






5339 


016066 


105737 


003455 


5340 


C16072 


001023 




5341 


C16074 






5342 


C 16074 


104450 




5343 


016076 






5344 


016076 


103023 




5345 


016100 






5346 


016100 


013704 


003346 


5347 


016104 


004737 


007416 


5348 


016110 






5349 


016110 


112337 


004042 


5350 


016114 






5351 


016114 


112337 


00404 3 


5352 


016120 






5353 


016120 


111337 


004044 


5354 


016124 






5355 


016124 


104443 




5356 


016126 


000404 




5357 


016.130 


003364 
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SEQ 0127 



j SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 
: INPUTS: 
j OUTPUTS: 

REGISTERS: 

CALLS: 

PRXST:: PRINTX ftGETSTM 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 0STAER5, MSGPKT *MS.X50 .MSGPKT »MS.XS1. MSGPKT ♦MS.XS2.MSGPK 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

RTS PC 



SUBROUTINE TO HALT AFTER EACH COMMAND. 

INPUTS: 

OUTPUTS: 

REGISTERS: R3, R4 

CALLS: 



frGETSTM, 
#1,-(SP) 

5P.R0 

C5PNTX 

#4.SP 

T*MS.XS3 
MSGPKT *M 
MSGPKT M 
MSGPKT »M 
MSGPKT *M 
4STAER5, 
4>5,~(SP) 
SP.RO 
CSPNTX 
#14. SP 



CKHAE:: IFB HAE NE #0 THEN 

IFB MISCFG EQ VO THEN 

MANUAL 

BNCOMPLETE CKHRTN 

LET R4 :» CMDWRD 

JSR PC.GCMDA 

LET HAL.TM :B» (R3)» 

LET HALTM^l ;B* CR3V 

LET HALTMf? ;B^ CR3) 

GMANIL HALTMgTIMEl.i.YES 



{IF HALT FLAG IS SET; 





TSTB 


HAE 




BEQ 


50343$ 


» 


TSTB 


MISCFG 




BNE 


50344$ 


;IS MANUAL INTERVENTION 


ALLOWED 


? 




TRAP 


*C$MANI 


{BR IF NOT. 








BCC 


CKHRTN 


{COMMAND WORD. 








KOV 


CMDWRD, R 


{FETCH ADR OF CMD ASCII 


, 




{MOVE CMO ASCII 








MOVB 


CR3)*.HA 




MOVB 


CR3)-,HA 


{INTO MESSAGE. 








MOVO 


(R31.HAL 



{HALT - WAIT FOR AN OEPRATGR INPUT. 

TRAP C$GMAN 

BR 10000% 

.WORD TiMEl 



.10 



Q.OB At AREAS 
CZTSHD.P11 
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5358 016132 000130 

5359 016134 004042 

5360 016136 000001 

5361 016140 
53v2 016140 

5363 016140 00040" 

5364 01614<? 

5365 016142 

5366 016142 105037 003455 

5367 016146 

5368 016146 

5369 016146 

5370 0x6146 

5371 016146 000207 
5372 

5373 

5374 016150 



10000$: 



CKHRTNj RTS 

.EVEN 

ENDMOD 



ELSE 

LET MISCPG :B- M 
ENDIF 
ENDIF 

PC 







SEQ 


0128 




.WORD 
.WORD 
.WORD 


TSCODE 

HALTM 

1 




50344$: 


BR 


50345$ 






CLRB 


MISCFG 




50345$: 








50343$: 









; RE TURN 



M10 



GLOBAL 


ARt AS 


MACU1 


30(1046) 


CZTSHD, 


Pll 06-APR-84 


08:49 


53 75 








5376 








5377 








5378 








5379 


016150 






5380 








5381 








5382 








5383 








5384 








5385 








5386 


016150 






5387 


016150 






5358 








5389 








5390 


016150 






5391 


016150 


C10537 


^03400 


5392 


016154 


004737 


015452 


5393 


016160 






5394 


016160 






5395 


016160 


026527 


002532 


5396 


016166 


001562 




5397 


016170 






5398 


0161/0 


016546 


003324 


5399 


016174 


016546 


003254 


5400 


016200 


016546 


002532 


5401 


016204 


012746 


017012 


5402 


016210 


012746 


000004 


5403 


016214 


010600 




5404 


016216 


104416 




5405 


016220 


062706 


000012 


5406 


016224 






5407 


016224 


016546 


002554 


5408 


016230 


016546 


002564 


5409 


016234 


016546 


002574 


5410 


01624C 


016546 


002604 


5411 


016244 


012746 


017067 


5412 


016250 


012746 


000005 


5413 


016254 


010600 




5414 


016256 


104416 




541b 


016260 


062706 


000014 


5416 


016264 






5417 


016264 


01654 S 


002614 


5418 


016270 


016546 


002624 


5419 


016274 


016546 


002634 


5420 


016300 


016546 


002644 


5421 


016304 


012746 


017140 


5422 


016310 


012746 


000005 


5423 


016314 


010600 




5424 


016316 


104416 




5425 


016320 


062706 


000014 


5426 


016324 






5427 


016324 


016546 


002654 


5428 


016330 


016546 


002664 


5429 


016334 


016546 


0C2674 


54 30 


016340 


016546 


002704 



Ob-APR-84 08:51 PAGE 131 

GLOBAL SUBROUTINES SECTION 



SEQ 0129 



.TITLE MISCELLANEOUS SECTIONS 
.SBTTL. REPORT CODING SECTION 

BGNMOD 



♦ * 



THE REPORT COOING SECTION CONTAINS THE 

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS 



L$RPT:: 



BGNRPT 



LET 

JSR 
WHILE 



R5SAVE 



R5 



PC.FIRSTU 
DEVT8LCR5) NE 



*END DO 



PRINTS 



PRINTS 



PRINTS 



PRINTS 



{SAVE CURRENT DEVICE POINTER. 

MOV 
:FIND THE FIRST UNIT. 
{WHILE THERE ARE MOPE DEVICES: 

50346$: 

CMP 
BEQ 

0RPTlA t DEVTBL(R5),PASCNT(R5),RECCNT(R5) 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

#RPTlB,WRBC*30(R5),WRBC*i?0(R5),WRBC*10CR5),WRBCC 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

0RPT1C»RRBC»3O(R5),RRBC*2O(R5),RRBO1OCR5)„RRBC( 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

^RPTlD,RrBC»30(R5),RFBC*20(R5\RFBO10(R5),RFBCC 

MOV 
MOV 
MOV 
MOV 



R5,R5SAV 



DEVTBLCR 
50347$ 

RECCNTCR 

PASCNTCR 

DEVTBLCR 

0RPT1A, - 

04,-CSP) 

SP.RO 

C*PNTS 

012. SP 

R5) 

WRBCCR5) 

WRBC*10( 

URBC*20C 

UR8C*30( 

0RPT1B,- 

♦5,-CSP) 

SP.RO 

C$PNTS 

$14 t SP 

R5) 

RRBCCR5) 

RRBC*10C 

PRBO20C 

HRBC*30( 

ORPUC. - 

05, -CSP) 

SP.RO 

CSPNTS 

■n4,sp 

R5) 

RFBCCRM 
RKBClOv. 
RFBC»i\n 

HKBC^5v.H 



N10 



MISCELLANEOUS SECTIONS 


MACY11 30(1046) 


CZ TSHD* 


Pll 06-APR-84 


08:49 


5431 


016344 


012746 


017211 


5432 


016350 


012746 


000005 


5433 


016354 


010600 




54 34 


016356 


1044 If 




5435 


016360 


062706 


000014 


5436 


016364 






543/ 


016364 


016546 


002754 


5438 


016370 


016546 


002734 


5439 


016374 


016546 


002714 


5440 


016400 


012746 


017315 


5441 


016404 


0?2 7».6 


000004 


544c 3 


016410 


010600 




5443 


01A41? 


104416 




5444 


016414 


062706 


000012 


5445 


016420 






5446 


016420 


016546 


002764 


5447 


016424 


016546 


002744 


5448 


016430 


016546 


00272* 


5449 


016434 


012/46 


017366 


5450 


016440 


012746 


000004 


5451 


016444 


010600 




5452 


016446 


104416 




5453 


016450 


062706 


000012 


5454 


016454 






5455 


016454 


105737 


002206 


5456 


016460 


001402 




5457 


016462 


004737 


016544 


5458 


016466 






5459 


016466 






5460 


016466 






5461 


016466 


016546 


003274 


5462 


016472 


016516 


003314 


5463 


0164/6 


016546 


003304 


5464 


016502 


016546 


003264 


5465 


01650C 


012746 


0175' 3 


5466 


01653. ' 


012746 


000005 


5467 


01651.O 


010600 




5468 


016520 


104416 




5469 


016522 


062706 


000014 


54 70 


016526 


004 737 


015520 


54/1 


016532 






5472 


016532 


000612 




54 73 


016534 






54 74 


0^6534 






54 75 


016534 


013705 


003400 


5*76 


016540 






54 7 7 


016540 


0001 -j/ 




54/8 


016542 


001130 




54 79 








5480 








5461 








54 8i.' 








54 M'. 








54 44 

* .Ait*. 









06 -APR -84 08s 51 PAGE 132 
REPORT CODING SECTION 



SEU 0130 



PRINTS 



4RPT1F,WRRECCR5),RRRECCR5),RFRECCR5) 



PRINTS 



4RPTlG f URUNRCR5),RRUNR(R5) l RFUNR(R5) 



IF6 BADTbW NE 40 THEN 



JSR PC.BTRPT 



GO PRINT BAD TAPE SPOTS WHEN 



MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

TSTB 

BEQ 
ENABl ED 



4RPT1D. - 
45, -CSP) 

SP.RO 
C$PNTS 
414, SP 

RFRECCR5 
RRRECCR5 
WRRECCR5 
4RPT1F.- 
#4, -CSP) 
SP,RO 
C$PNTS 
412, SP 

RFUNRCR5 
RRUNRCR5 
WRUNRCR5 
4RPT1G,- 
44 , - ( SP ) 
SP.RO 
C$PNTS 
412, SP 

BADTSW 
50350$ 



END IF 
PRINTS 



50350$: 
4RPT1I,SCCNT(R5),HRDCNTCR5),FTLCNTCR5),VFYCNT(R5) 



JSR 
ENDDO 



LET R5 

FXIT 



PC.NEXTU 



{FIND THE NEXT UNIT 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



BR 



VFYCNUR 
FTLCNTCR 
HRDCNTCR 
SCCNTCR5 
4RPT1I, - 
45, -(SP) 
SP.RO 
C$PNTS 
414, SP 



50346$ 



R5SAVE 



{RESTORE 



5034 7$ : 
CURRENT DEVICE 



POINTER. 
MOV 



RPT 



.WORD 
.WORD 



R55AVE.R 

j$jMP 

L 10010-2 



>4eo 



SUBR TO PRINT RAD TAPIS SPOTS DURING THE RFPORT PRINTS 
URITE RETRIFS: CUMULATIVE COUNT 

BAD TAPE SPOTS: COUNT PER TAPE PASS ONI i, NOT CUMUlAUVl. 
COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 



nil 



MISCELLANEOUS SI CT IONS MAC 111 30(1046) 06 -APR -84 08j5t PAGE 135 
CZTSHD.P11 06-APR-84 08;49 REPORT CODTNG SECTION 



SEQ 0151 



548 7 








5488 








5489 


G16544 






5490 


016544 


016546 


003244 


5491 


016550 


012746 


017437 


5492 


016554 


012 746 


000002 


5493 


016560 


010600 




5494 


016562 


104416 




5495 


016564 


062706 


000006 


5»<>6 


016570 






5497 


016570 


016537 


002544 003436 


5493 


016576 






5499 


016576 


017703 


164634 


5500 


016602 


006203 




5501 


016604 






550? 


016604 


010346 




5503 


016606 


012746 


017467 


5504 


016612 


012746 


000002 


5505 


016616 


010600 




5506 


016620 


104416 




5507 


016622 


062706 


000006 


5508 


016626 






5509 


016626 


005703 




5510 


016630 


001457 




5511 


016632 






5512 


016632 


02032 7 


000024 


5513 


016636 


101402 




5514 


016640 






5515 


016640 


012703 


000024 


5516 


016*;44 






5517 


016644 






5518 


016644 






5519 


016644 


012746 


005216 


5520 


016650 


012746 


000001 


5521 


016654 


010600 




5522 


016656 


104416 




552 3 


016660 


062706 


000004 


5524 


016664 






5525 


016664 


013704 


0034 36 


5526 


016670 


062/04 


000002 


5527 


016674 






5528 


016674 


005002 




5529 


016676 






5530 


016676 






5531 


016676 






555? 


016676 


011446 




5533 


016700 


012746 


017554 


5534 


016704 


0i2746 


000002 


5535 


016710 


010600 




5536 


016712 


104416 




553? 


016714 


062706 


000006 


5538 


016 720 






5539 


016/20 


00520? 




5540 


016 722 






554 1 


016 7.V 


Q62JQ4 


QOOQQc' 


554* 


016726 







BTRPTj PRINTS 0RPT1E ,WRTYCT(R5 ) 



LET BTPT :• BTADDR(R5) 
LET R3 : - 6J6TPT SHIFT 

PPINTS 0RPT1J.R3 



, PRINT GLOBAL WRITE T.ETRr COUNT 

MOV WRTfCTCR 

MOV 0RPT1E,- 

MOV 02,-CSP) 

MOV SP,RO 

TRAP OPNTS 

ADD 06 , SP 

iBTPT IS BOTH THE BAD TAPE SPOT COUNTER 



1 ,ANO THE LUGGING INDEX 

jPRINI OF BAD TAPE SPOTS 



IF R3 NF. 00 THFN 

U R3 Hi 020, THtN 
020, 



MOV 

MOV 
ASR 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



BTADDR^R 

SBTPT.R3 
R3 

R3, (SP.) 
ORPTlJ, 
0? , C SP ) 

SP.RO 
CIPNTS 
06. SP 



jPRINT RECORD IE BAD SPOTS DETECTED 



1ST 

be a 



i 



LET R3 : - 

ENOIF 
PRINTS 



CMP 
BLOS 
j 20 BAD SPOTS IS THE LIMIT 

MOV 



0CRWSP 



50552$; 



I 



MOV 
MOV 
MOV 
TRAP 
ADD 
ET R4 !• RTPT ♦ 0? |M TCH A BAD SPOT ID 

MOV 
ADO 
|R? • PRINT COUNT PER 1. INF : 10 MAx 

CLP 

50353$» 
0RPUK.IR4) j PR INT A HAD SPUT 10 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOD 



LFT R? c 00 
RfePt T 

PRINTS 



L> T H? 

Ill K4 



V 
R4 



01 
0/ 



I COUNT PRINTS 
I Nt X I 



U R w > LU 010. THEN 



INC 
Att> 



R3 

50 351$ 

R3.020. 
503S25 

020,. R3 



oCRLMiP. 

01, (SP) 
SP.RO 

CtPNTS 
04. SP 

BTPT.R4 

02. R4 

R2 



k R4 >, IS 

oRPTtK , 

0?. ^Sf'" 1 
SP.RO 

C*PN r :i 
On , SP 

R. v 



C 1 1. 



MISCEl I ANt OUS 51CU0N5 MACU1 30(1046) Oh - APR - A4 Oa;51 PACit 
CZTSHD.PU 06 APR 84 08}49 REPORT CODING SECTION 



134 



SEQ 0132 



5M? 

5544 

5545 
5546 
554 7 
5548 
5549 
5550 
5551 
5553 
555? 
5554 
5555 
5556 
555? 
5558 
555^ 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 



5572 
5573 
5574 
55/5 
5576 



5578 
5579 

5580 
5581 
5583 

5583 

5584 

55Q5 



016 736 
016 73? 
016 734 
016734 
016740 
016744 
016746 
016750 
016754 
016754 
016760 
016760 
016 764 
01676* 
0167S4 
016764 
016766 
016770 
016770 
016770 
016770 
016 774 
017000 
017003 
017004 
017010 



017013 
017067 
017140 
017311 
017361 
017315 
017366 
01V437 
017467 
01 V554 
017563 
017637 



0176 74 

017674 
017674 



0,^3 7 
001014 

013746 
013746 
010600 
104416 
063 706 

163703 

163703 



030303 
001343 



013746 
013746 
010600 
104416 
063706 
000307 



04 7045 
045 

040445 
045 
045 
045 

040445 
045 
045 

043045 
045 
045 



10443b 



00001, 



005316 
000001 



000004 
000013 
000013 



005313 
000001 



000004 



04 7045 
041101 
054503 
041101 
031133 
051101 
047135 
053501 
023516 
033465 
051501 
031523 



040445 
053131 
042534 
052131 
032463 
041505 
042533 
044533 
031104 
030523 
042530 
042045 



PRINTS 0CRLFSP 



CMP R2, 010. 
BNE 50 554 J 
I CO TO NEXT PRINT LINE PAST 10 PRINTS 











MOV 


OfRLFSP, 










MOV 


•l.-(SP) 










MOV 


SP,RO 










TRAP 


C*PNTS 










AOD 


04 , SP 


LET R3 :« R3 


• 010. 


» ADJUST 


BAD SPOT COUNT 


SUB 


010. ,R3 


LET R2 !- R.: 


- 010, 


jADJU'JT 


PRINT COUNT 


sue 


010., R2 


KNDIF 




i 


50354$ : 






UN"; XL R2 EQ R3 




ll.IMIT; 


OF" BAD SPOTS 


CMP 
BNfc 


R2.R3 
50353* 


ENDIF 


1 




50351$: 






PRINTS OCRLF 


J 






MOV 

MOV 

MOV 

TRAP 

ADD 


OCRLF , v 
01, -(SP) 

SP.RO 
CiPNTS 
04, SP 



RTS PC 





.NLIST 


RPTIA 


.ASCIZ 


RPT1B 


.ASCIZ 


RPT1C 


.ASCIZ 


RPT10 


.ASCII 




.ASCIZ 


RPT1F 


.ASCIZ 


RPT1G 


.ASCIZ 


RPT1E 


.A r XIZ 


RP11J 


.ASCIZ 


RPT1K 


.ASCIZ 


RPT1I 


.ASCII 




.ASCIZ 




.1 1ST 




.even 



BEX 

/#N#N*AUNIT *0HS3*mPASS:#05*S3*AREC0RD;*05*N/ 

/KAByTES WRITTEN *D3*A ,«Z3*A,#Z3*A ,«Z3*N/ 

/rfABYTES READ REV *DS*A ,*Z3*A ,*Z3*A ,»Z3#N/ 

/^ABYTES READ EUD #03*A ,*Z3#A ,*Z3*A ,*Z3*N/ 

/#523#AWRT*S4#ARDR*S4#ARDF4N/ 

/■^RECOVERABLE ERRORS *D5*S2*05*53*05*N/ 

/^UNRECOVERABLE ERRORS #D5#S2*D5*S2#05#N/ 

/#AWRITE RETRIES«S8#D5*N/ 

/*N#D2*A BAD SPOTS THIS TAPL P/'SS PRECEDING RECORD Oj/ 

/*D5*S1/ 

M #ASPEC CONORS 3#AHARD#S3#A* AT HL*S3*AC0MPARErfN" 

/*S3*D5*S3*D5*S3*D5f<S3*D5KN*N/ 

BEX 



HOOlOj 



ENDRPT 



TRAP C5RPT 



.SBTTL LOAD DEVICE PROTECTION TABLE 



017676 



I ♦ • 

i TARI.E *0R SUPERVISOR TO 
j THE SUPERVISOR USES THE 
I * * 

bGNPRQT 



IDF N* IF' THE P m F OP 1H\: I GAD 01 V 

TBL TU WARN THE OPERATOR WHEN HE TR1LS TO TEST THE 



lOAU 



t) 1. 1 



MISCELLANEOUS SECTIONS 
CZTSHO.Pll 06 APR 84 


MACUl 
08:49 


Sf»8t> 

SS87 

55^0 


017676 

017676 
017700 
017702 
017 704 


000000 
1/7777 
177777 







30< 104b> 06 -APR -84 
LOAD DEVICE. 



PROTECTION TABfE 



LJPROT 



.WORD 

.WORD 

,WOR0 

ENDPROT 





- 1 
-1 



IP 


TBI. 


OFFSET 


OF 


IP 


TBI. 


OFFSET 


OF 


IP 


TBL 


OFFSET 


OF 



TSSR, THE TS11 CSR 
MASS BUS UNIT *: -1 
DRIVE <>t -1 - NONE, 



SEQ 015 T > 



- NOT A MAS 
ONE DRIVE P 



MI SCtlt ANtOUS 
CZTSHD.P11 



5591 

5592 
559? 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
5611 
5612 
5613 
5614 
5615 
5616 
5617 
5618 
5619 
5620 
5621 
5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
0632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5642 
564 3 
5644 
5645 
5646 



St. CI IONS 
06 -APR -84 



017704 
017704 

017704 
017704 
017712 
017714 
017714 
017716 
017720 
017722 
017724 
017730 
017730 
017734 
017736 
017742 
017744 
017750 
017752 
017756 
017760 
017762 
017764 
017766 
017770 
017770 

017770 

017770 
017774 
017776 
020002 
020002 
020004 
020004 
020004 
020010 
020012 
020012 
020016 
020016 
020022 
020022 
020024 
020024 
020024 

020024 



032727 
001426 

104454 
000001 
004102 
000000 
012746 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001567 
005316 
001362 
005726 
000746 



105737 
0014i3 
105037 

005002 



020227 
001405 

005062 

062702 

0007 70 



MAcm 

08:49 



30(1046) 



06 -APR -84 
INITIALIZE 



08; 51 
SECTION 



PAGE 



F 

136 



11 



SEQ 0134 



.S8TTL INITIALIZE SECTION 



I ♦ * 



I THE INITIALISE SECTION CONTAINS THE CODING THAT IS PERrORMED 
} AT THE BEGINNING OF EACH PASS, 
* - - 



000003 002310 



BGNINIT 
LJINITj; 

INITIO; IF 0BIT0IBIT1 SETIN OCMDPKT THEN 
ERRSF ffl.CMDPKM 



000010 
000372 
002116 
177772 
177756 



97$ 



MOV 08..-CSP) 
DELAY 250. 



j IF CMD PACKET IS NOT ON MODULO 4 BOUN 

BIT OBITO'BI 
BEQ 50355$ 
j PRINT ERROR MSG , 

TRAP CSERSF' 
.WORD 1 
.WORD CMDPKM 
. UORD 
t SETUP STACK FOR LONG DELAY 
j GO TO SUPERVISOR, WAIT 2 SECONDS. 



DEC 


CSP) 


BNE 


97$ 


TST 


CSP)* 


BR 


INITIO 


ENDIF 





jS.)6TRACT 1 

j BRANCH UNTIL DONE 

; CLEAN UP THE STACK 



MOV 


0250., (P 


.WORD 





MOV 


L$DLY,CP 


.WORD 





DCC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNF 


. -20 



l 



50355$: 



002202 

000550 

002554 
000002 



IFB CLRFLG NE 00 THEN 



CLRB CLRFLG 

LET R? :• 00 

WHILE R2 NE OCNU.EN DO 



I IF CLR COUNTERS FLAG SET: 

TSTB 
BEQ 

I INIT CLR FLAG, 



50357$: 



CLR 



CMP 
BEQ 



LET 


WRBCCR2) 


: • 00 


LET 


R2 i« 


• R2 


» 02 


ENDDO 








ENDIF 








IFB RRANV NE 


00 


THEN 



iCl.R ALL STATISTICAL COUNTERS. 

CLR 

ADD 

BR 



CLRFLG 
50356$ 



R2 

R2,i>CNTL 
50360$ 

WRBCCR2) 

*^.R2 

50357$ 



50360$: 

5035t» $: 
I IF RESET RANDOM VARIABLE FLAG IS SET Jh 



11 



MISCELLANEOUS SECTIONS 
CZTSHD.Pli 06-APR-84 



564 7 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

56 7 8 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

568 7 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

570, 

5701 

5702 



020024 
020030 
020032 
020032 
020040 
020040 
020046 
020046 
020046 
020046 
020052 
020054 
020054 
020056 
020056 
020062 
02OO62 
020066 
020066 
020066 
020066 
020074 
020074 
020100 
020100 
020102 
020104 
020104 
020110 
020112 
020112 
020112 
020112 
020116 
020116 
020122 
020126 
020126 
020130 

020132 
020132 
020136 
020140 
020140 
020142 
020142 
020146 
020146 

020152 
020152 
020154 
020160 
020160 
020102 



105737 
001406 

012737 

012737 

012700 
104447 

103026 

105237 

012705 

012765 

162705 

005705 
C01371 

013705 
006305 



010565 
006265 

005705 
001370 



012700 
10444 7 

103004 

105237 

105237 



104421 
010037 

005003 



MACU1 
08:49 

002203 



153624 
032561 

000040 

003452 
000006 

177774 
000002 

002012 
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003360 
003362 



SEQ 0135 



162705 000002 



002532 
002532 



000034 

003452 
003453 

003456 



002532 



LET 


RANB 


j- ORANBC 


LET 


RANS 


:- ORANSC 


ENDIF 






READEF 


* OEF 


.START 



BNCOMPLETE INIT15 
LET STAFLG :B" STAFLG ♦ #1 
LET R5 :« 46 
REPEAT 

LET DEVTBLCR5) ;- ONINUSE 

LET R5 j» R5 - 02 
UNTIL R5 EQ 00 

LET R5 :* L$UNIT SHIFT 1 

REPEAT 

LET R5 j- R5 - 02 

LET DEVTBLCR5) :« RS SHIFT 

UNTIL R5 EQ 00 



-1 



INI T 15: READEF OEF.PWR 



BNCOMPLETE INIT16 

LET STAFLG :B- STAFLG * 01 
LET PWRFLG :B« PWRFLG * 01 



INIT16: RFLMGS OPFLAG 



jRESEV RANDOM BASE 0. 



TSTB 
BEQ 

MOV 



{RESET RANDOM SAVE LOCATION. 

MOV 

50361*: 
j READ STAPT COMMAND EVENT FLAG. 

MOV 

TRAP 
;BRANCH IF NOT STARTING. 

BCC 
{SET START COMMAND FLAG. 

INCB 

MOV 



RRANV 
50361$ 

ORANBC, R 

ORANSC.R 

OEF. STAR 
CSREFG 

INIT15 

STAFLG 

06, R5 



{INITIATE UNIT NUMBER TABLE 

50362$: 
?BY STORING NOT IN USE IN EACH LOCATION. 

MOV vNINUSE, 





SUB 


02, R5 




TST 


R5 




BNE 


50362$ 




MOV 


LSUNIT.R 




ASL 


R5 


{STORE ALL UNIT 






50363$ 


j 




{NUMBERS IN DEVTBL. 








SUB 


02, R5 




MOV 


R5.DEVTB 




ASR 


DEVTBLCR 




TST 


R5 




BN6 


50363$ 


{HAS THERE BE A POWER 


FAILURE? 






MOV 


OFT. PUR, 




TRAP 


C$REFG 


{BRANCH IF NOT. 








BCC 


INIT16 


{IF SO * SET THE START FLAG. 






INCB 


STAFLG 


j IF SO - SET THE POWER 


FAIL FLAG, 




INCB 


PWRFLG 



LET R3 t- 00 

1HJ PWKhLU EU 00 THEN 



jREAD AND STORE FLAGS SET B^ OPERATOR 

TRAP C$RFLA 

MOV RO.OPFLA 

{CLEAR EVENT FLAG 

CI R R3 

{IF POWF.R FAIL HAS NUI OCCURRED THLNt 



Gil 
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SEQ 0136 



5703 


020162 


105737 


003453 


5 704 


020166 


001020 




5 705 


020170 






5706 


020170 


012700 


000035 


5707 


020174 


104447 




5708 


020176 






5709 


020176 


103014 




5710 


020200 






5711 


020200 


105737 


003452 


5712 


020204 


001010 




5713 


020206 






5714 


020206 


012700 


000037 


5715 


020212 


10444 7 




5716 


020214 






5717 


020214 


103402 




5718 


020216 






5^19 


020216 


005103 




5720 


020220 






5721 


020220 


000401 




5722 


020222 






5723 


020222 






5724 


020222 


005203 




5725 


020224 






5 726 


020224 






5727 


020224 






5728 


020224 


000401 




5V29 


020226 






5730 


020226 






5731 


020226 


005203 




5732 


020230 






5733 


020230 






5734 


020230 






5735 


020230 






5736 


020230 






5737 


020230 






5738 


020230 


004737 


015452 


5739 


020234 






5740 


020234 


005002 




5741 


020236 






5742 


020236 






5743 


020236 


026527 


002532 


5744 


020244 


001450 




5745 


020246 






5746 


020246 


005202 




5747 


020250 






5748 


020250 


010500 




5719 


020252 


006200 




5750 


020254 






5751 


020254 


104442 




5752 


020256 






5753 


020256 


103036 




5754 


020260 






5755 


020260 


011065 


002462 


5 756 


020264 






5757 


020264 


012065 


002452 


5758 


020270 


162765 


000002 



177777 



READEF 0EF.NEW 

IFCONO CS THEN 

IFB STAFLG EQ #0 THEN 

READFF OEF.RES 

IFCOND CC THEN 

LET R3 {* COMP R3 
ELSE 

LET R3 :« R5 ♦ 01 
END IF 
ELSE 

LET R3 :- R3 ► tfl 
ENDIF 

ENDIF 
ENDIF 

JSR PC, F IRS TU 

LET R2 :* 00 

WHILE DEVTBLCR5) NE <>END 00 

LET R2 :* R? ♦ *l 
LET RO :» R5 SHIFT -1 

GPHARD RO.PO 

UCOND CS THEN 

LFT TSSR(R5 , > ;* ( RO > 

LET TSDBCR5) :• (R0)» oe 



TSTB 
BNE 

{UPDATE PASS COUNT WHEN 

MOV 
TRAP 

{SUPERVISOR IS IN NEW PASS 

BCC 

{AND DIAG WAS NEITHER STARTED 

TSTB 

j NOR 

MOV 

TRAP 
jRESTAP TED 

BCS 
{DO IT 

COM 

BR 
5036 7$: 
{SET 1ST PASS IF NEW PASS AND 

INC 
{RESTARTING 

50370$: 

BR 
50366$: 
SET 1ST PASS IF NEW PASS AND 

INC 
STARTING 

50371$: 
DO NOT UPDATE I T ON CONTINUE 

50365$: 
OR ON POWER FAIL 

50364$: 
INIT DEVICE POINTER, 
INIT DEVICE COUNTER. 



50372$ 



CLR 



CMP 
BEG 

INC 

MOV 
AS-t 



PWRFLG 
50364$ 

OEF.NEW, 
C$REFG 

50365$ 

STAFLG 
50366$ 

*EF.RES, 
C$REFG 

50367$ 

R3 
50370$ 

R3 



50371$ 
R3 



R2 



DEVTBUR 
503 73$ 

R2 

R5.RC 

RC 



•GET HARDWARE P TABLE r ROM SUPER. 

TRAP CSGPHRO 



{SAVE TSSR ADDRFSS. 
{SAVE TSDB ADDRESS, 



BCC 

MOV 

MOv 
SUB 



503 "4$ 

lRO>.TSS 

i no ^ * , ' *; 

*2,TSDtH 



1-1 1 1 
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SEQ 0137 



57S9 


0202 76 






5760 


020276 


011065 


0024 72 


5761 


020302 






576?. 


020302 


012746 


000340 


5763 


020306 


016546 


002512 


5764 


020312 


016546 


0024 72 


5765 


020316 


012746 


000003 


5766 


020322 


104437 




5767 


020324 


062706 


000010 


5768 


020330 






5769 


020330 


005703 




5770 


020332 


001410 




5771 


020334 






5772 


020334 


005703 




5773 


020336 


002003 




5774 


020340 






5775 


020340 


005265 


003254 


5776 


020344 






5777 


020344 


000403 




5778 


020346 






5779 


020346 






5780 


020346 


012765 


000001 


5781 


020354 






5782 


020354 






5783 


020354 






5784 


020354 






5785 


020354 






5786 


020354 






5787 


020354 






5788 


020354 


005065 


003324 


5789 


020360 


004737 


015520 


5790 


020364 






5791 


020364 


000724 




5792 


020366 






5793 








5794 


020366 






5795 


020366 


005702 




5796 


020370 


001033 




5797 


020372 






5798 


020372 


012746 


004645 


5799 


020376 


012746 


000001 


5800 


020402 


010600 




5801 


020404 


104417 




5802 


020406 


062 706 


000004 


5803 


020412 


012746 


000010 


5804 


020416 






5005 


020416 


012727 


000372 


5806 


020422 


000000 




5807 


020424 


013727 


002116 


5808 


0204 30 


000000 




5809 


020432 


00536 7 


177772 


5810 


020436 


001375 




5811 


020440 


005367 


177756 


5812 


020444 


001367 




5815 


020446 


005316 




5814 


020450 


001362 





LET T5VCTCR5) :- (RO) 



{SAVE INTERRUPT VECTOR ADDRESS, 

MOV (RO),TSV 

SETVEC TSVCT(R5),TS4INT(R5) f 0INTPRI ;SET UP INTERUPT PROCESSING COND 



IF R3 NE 00 THEN 
IF R3 LT 00 THEN 





LET 


PASCNTCR5) 




ELSE 






LET 


PASCNTCR5) 




: MDIF 




END IF 




ENDIF 




LET 


RECCNTCR5) :* 40 


JSR 
ENODO 


PC J 


vJEXTU 



01 



MOV 


OINTPRI, 


MOV 


TS4INTCR 


MOV 


TSVCTCR5 


MOV 


03, -CSP) 


TRAP 


CtSVEC 


ADO 


oio.sp 


{ACTUAL PASSCOUNT UPDATE PER 


R3 


TST 


R3 


BEQ 


50375$ 


TST 


R3 


BGE 


50376$ 


(R5) * 01 




INC 


PASCNVCR 


BR 


503V 7$ 


50376$: 




MOV 


Ol.PASCN 



50377$ 
50375$ 

50374$ 

; CLEAR RECORD COUNT 



IF R2 EQ 00 THEN 
PRINTF OAUDRPM 



98$: 



MOV 08., -(SP) 
DELAY 250, 



CLR 


RECCNTCR 


5 D0 IT FOR ALL DEVICES. 




BR 


50372$ 


50373$: 




tlF THERE ARE NO UNITS; 




TST 


R2 


BNE 


50400$ 


jPRINT ALL UNITS DROPPED. 




MOV 


OAUDRPM, 


MOV 


01, -CSP) 


MOV 


SP.RO 


TRAP 


C*PNTF 


ADD 


04, SP 


j SETUP STACK FOR LONG DELA> 




jGO TO SUPERVISOR, WAIT 2 SECONDS 


MOV 


0250. ,(P 


.WORD 





MOV 


L$Dl.i ,tP 


. WORD 





DEC 


■t>l PC 


8Ne 


. -4 


DEC 


-22k PC! 


ONE 


. -.20 



DEC 
BNE 



CSP) 
98$ 



{SUBTRACT 1 
{BRANCH UNTIL DONE 



Ill 
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SEQ 0138 



5815 


020452 


005726 






5816 


020454 








5817 


020454 


104422 






5818 


020456 








581^ 


020456 


104444 






58-20 


020460 








58c 1 1 


020460 








5822 










5823 


020460 








5824 


020460 


012~*00 


000000 




5825 


020464 


104441 






5826 


02046b 








582 7 


020466 


105737 


002211 




5828 


0204 72 


001152 






5829 


0204 74 


032737 


000020 


003456 


5830 


020502 


001146 






5831 


020504 


004737 


015452 




5832 


020510 








5833 


020510 








5834 


020510 


026527 


002532 


177777 


5835 


020516 


001540 






5836 


020520 








5837 


020520 








5838 


020520 


012737 


000001 


003364 


5839 


020526 


000402 






5840 


020530 








5841 


020530 


005237 


003364 




5842 


020534 








5843 


020534 


023727 


003364 


000025 


5844 


020542 


003113 






5845 


020544 








5846 


020544 


012775 


002320 


002452 


584 7 


020552 








5848 


020552 


012727 


000001 




5849 


020556 


000000 






5850 


020560 


013727 


002116 




5851 


020564 


000000 






5852 


020566 


005367 


177772 




5853 


020572 


001375 






5854 


020574 


005367 


177756 




5855 


020600 


001367 






5856 


020602 








5857 


020602 


032775 


000200 


002462 


5858 


020610 


001420 






5859 


02061.? 








5860 


020612 


032775 


000100 


002462 


5861 


020620 


001001 






5862 


020622 








5863 


020622 


000463 






5864 


020624 








5865 


020624 








5866 


020624 








586-' 


020624 


016546 


0C2532 




5868 


020630 


012746 


00512? 




5869 


0206 34 


012746 


0OO0C2 




58 7C 


020640 


010600 







rsT (SP)» 

BREAK 



DOCLN 
ENDIF 



SETPRI rtPRIOO 

IFB IREC EQ 40 AND <WU)R NOTSETIN OPFLAG THEN 



;CLEAN UP THE STACK 

{GO TO SUPERVISOR, CHECK TTr 

TRAP 
}00 CLEAN CODE ♦ ABORT PASS. 

TRAP 

50400*: 
{LOWER CPU PRIORITY TO 



C$BRK 

C$DCLN 



JSR PC.FIRSTU 

WHILE DEVTBLCR5) NE tfEND DO 



BEGIN COUNTER 



MOV SPRIOO.R 
TRAP C$SPRI 
j IF ERROR RECOVER f IS EN 
TSTB IREC 
BNE 50401$ 
BIT OADR.OPF 
BNE 50401 $ 

;AND AUTO -DROP NOT CALLED, THEN SET UP F 

jWHILE THERE ARE MORE DEVICES: 

50402 $: 



INCR TIME1 FROM 01 TO 02b BY 01 



LET 8TSDB(R5) := 4GSCPK {AND GET UNITS STATUS 
DEl.A* 1 {WAIT 



IF 0TS.SSR SETIN 5)TSSR(R5) THEN 

IF OTS.OFL NOTSETIN 3TSSRCR5) THEN 





CMP 


DEVTBLCR 




BEQ 


50403$ 


E COUNTER 






MOV 


♦l.TIMEI 




BR 


50405$ 


50406$: 








INC 


TIME1 


50405$: 








CMP 


TIME 1.^2 




BGT 


50407$ 


TATUS 








MOV 


0GSCPK.3 




MOV 


01, (PC)* 




.WORD 







MOV 


L$DLY .(P 




.WORD 







DEC 


-6CPC) 




BNE 


. -4 




DEC 


-22CPC) 




BNE 


. -20 




BIT 


OTS.SSR. 




BEQ 


50410$ 




BIT 


OTS.OFL, 




BNE 


50411$ 



LEAVE COUNTER 
ELSE 



{EXIT COUNTER WHEN UNIT ON LINE 

BH 50404 $ 



504 11$: 
PRINTF 00FLINM,DEVTBL(R5) {PRINT UNIT OFF LINE EVER* 10 SEC 

MOV DF.VTBLvH 

MOV tfOFLlNN, 

MOV #2, -i. SP' 4 

MOV SP.RO 



MISCEL.l.ANtUUS 

CZTSHD.P11 



Sir. CT IONS 
06 -APR 84 



5371 

5872 

587? 

58 74 

5875 

5876 

5877 

5678 

58 79 

5380 

5881 

5882 

5883 

5884 

5885 

5886 

588 7 

5888 

5889 

5890 

5891 

5892 

5893 

5894 

5895 

5896 

5897 

5898 

5899 

5900 

5901 

5902 

5903 

5904 

5905 

5906 

5907 

5908 

5909 

5910 

5911 

5912 

5913 

5914 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 

5924 

5925 

5926 



020642 

020644 

020650 

020650 

020650 

020650 

020652 

020652 

020652 

020656 

020662 

020666 

0206 70 

0206 72 

020676 

020676 

020676 

020676 

020704 

020706 

020706 

020712 

020712 

020720 

020722 

020726 

020726 

020732 

020734 

020740 

020742 

020746 

020750 

020754 

020756 

02C760 

020762 

020764 

020764 

020 766 

020766 

020770 

020770 

020770 

020772 

020772 

020772 

020772 

020772 

021000 

021002 

021006 

021012 

021012 



104417 
062706 



000412 



016546 
012746 
012746 
010600 
104417 
062706 



012737 
000402 

005237 

023727 
003023 
012746 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005316 
001362 
005726 

104422 

000747 



000657 



023727 
003404 
004737 
004737 
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C02532 
021616 
000002 



000006 

000001 003366 

003366 

003366 000013 

000004 

000372 

002116 

177772 

177756 



END IF 
ELSE 

PRIN1F 0NRDYM*DEVTBL(.R5) 



ENDIF 

INCR TIME2 FROM 01 TO 013 BY 01 



99$ j 



MOV 04..-CSP) 

DELAY 250. 







SEQ 0139 




TRAP 


C$PNTF 




ADD 


#6, SP 


50412$: 








BR 


50413$ 


50410$; 








MOV 


DEVTBLCR 




MOV 


0NRDYM, - 




MOV 


02, -CSP) 




MOV 


SP,R0 




TRAP 


C$PNTF 




ADD 


46, SP 


50413$: 








MOV 


01.TIME2 




BR 


50414$ 


50415$; 








INC 


TIME2 


50414$; 








CMP 


TIME2.01 




BGT 


50416$ 


TACK FOR LONG 


DELAY 


UPERVIS 


OR. WAIT 1 SECOND 




MOV 


0250., (P 




.WORD 







MOV 


L$DLY,CP 




.WORD 







DEC 


-6CPC) 




3NE 


. -4 




DEC 


-22CPC) 




BNE 


,-20 



DEC CSP) 

BNE 99$ 

TST (SP)* 
BREAK 



{SUBTRACT 1 
;BRANCH UNTIL DONE 
; CLEAN UP THE STACK 
tALLOW TERMINAL INTERRUPT 



003364 000025 

011224 
011736 



021012 004 737 015520 



ENDINC 

ENDINC 

END COUNTER 

IF TIME1 GT 025 THEN 



JSR PC.MOVMSG 
JSR PC.TCC1 
ENDIF 



JSR PC.NEXTU 





TRAP 


C$BRK 




BR 


50415$ 




50416$: 






BR 


50406$ 




50407$: 






50404$: 




j IF OFF LINE 


FOR 3.5 MINUTES 






CMP 


TIME 1,02 




BLE 


50417$ 


{GET MESSAGE 


PACKET 




; PRINT ERROR 


AND DROP OFF i INE 


UNIT 



5041 ;$: 
{REPEAT UNTIL ON LINE OR UMEO OUT, 
{SET UP FOR NEXT UNIT. 



Kll 
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SEQ 0140 



5927 


021016 






5928 


021016 


000634 




5929 


021020 






5930 


021020 






5931 


021020 






5932 


021020 






5933 


021020 


105737 


003453 


5934 


021024 


001026 




5935 


021026 






5936 


021026 


104431 




5937 


021030 


010037 


003334 


5938 


021034 






5939 


021034 


013737 


003334 003336 


5940 


021042 


062737 


004000 003336 


5941 


021050 






5942 


021050 


027727 


162260 004000 


5943 


021056 


002011 




5944 


021060 






5945 


021060 


012746 


021126 


5946 


021064 


012746 


000001 


5947 


021070 


010600 




5948 


021072 


104417 




5949 


021074 


062706 


000004 


5950 


021100 






5951 


021100 


104444 




5952 


021102 






5953 


021102 






5954 


021102 






5955 


C21102 






5956 








5957 


021102 






5958 


021102 


105037 


002212 


5959 


021106 






596C 


021106 


012703 


003452 


5961 


021112 


004737 


011154 


5^62 


021116 






5963 


021116 


105037 


003453 


5964 








5965 


021122 






5966 


021122 


104432 




5967 


021124 


000104 





ENDIF 

IFB PWRFLG EQ 00 THEN 



50403$: 
50401$: 



BR 



50402$ 



MEMORY DATAWT 



TSTB PWRFLG 
BNE 50420$ 
{REQUEST MEMORY FROM SUPER FOR RD/UR BUF 

TRAP C$MEM 
MOV RO.DATAW 

LET DATAnD :« DATAWT * 0DATCNT jSET RD BFR AD 

MOV DATAWT, 
ADD 0DATCNT, 

IF SDATAWT LT 4DATCNT THEN {WHEN NOT ENOUGH FREE MEMO AVAILABLE 





CMP 


3DATAWT, 




BGE 


50421$ 


PRINTF OMEMOM 


j WARN OPERATOR 






MOV 


4MEM0M,- 




MOV 


n.-csp) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


44, SP 


DOCLN 


{AND ABORT PASS 






TRAP 


C$DCLN 


ENDIF }DIAG MUST BE 


RE -LOADED IN A CPU WITH LARGER 

50421$: 


MEMO 


ENDIF 


50420$: 




LET C'HGFLG :B» 40 


;CLR CHANGE CMD SEQ TBL FLAG. 






CLRB 


CHGFLG 


LET R3 j* 4ENDFLG 








MOV 


4ENDFLG, 


JSR PC.CLRERR 


{CLEAR ALL FLAGS. 




LET PWRFLG :B* tfQ 


{CLEAR THE POWER FAIL FLAG. 






CLRB 


PWRFLG 


EXIT INIT 








TRAP 


C$EXIT 




.WORD 


L10012-. 



LI'! 
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SEQ 0141 



5968 










5^69 


021126 


040445 


051106 


042505 


59/0 


021134 


046440 


046505 


020117 


5971 


021142 


04 7524 


020117 


046523 


5972 


021150 


046101 


020114 


047506 


5973 


021156 


020122 


042122 


053455 


5974 


021164 


020122 


043102 


051522 


5975 


021172 


04 7045 






5976 


021174 


040445 


042522 


046055 


5977 


021202 


040517 


020104 


047111 


5978 


021210 


046040 


051101 


042507 


5979 


021216 


020122 


042515 


047515 


5980 


021224 


047C45 


000 




5981 




023 2*0 






5982 










5083 


021230 








5984 


021230 








5985 


021230 


104411 







MEMOMj .ASCII /*AFREE MEMO TOO SMALL FOR RD-WR BFRS*N/ 



1.10012: 



.ASCIZ /^ARE-LOAD IN LARGER MEMOrfN/ 

.EVEN 

ENDINIT 



TRAP 



CSINIT 



Mil 
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SEQ 0142 



5966 

598? 

::98e. 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 

5997 

5998 

5999 

6000 

6001 

6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 

6021 

6022 

6023 

6024 

6025 

*026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6034 

6035 

6036 

603 7 

6039 

6039 

6040 

6041 



021232 
021232 

021232 
021236 
021236 
021236 
021244 
021246 
021246 
021252 
021252 
021256 
021262 
021266 
021272 
021 '2 74 
021300 
021300 
021304 
021304 
021310 
021312 
021312 
021316 
021320 
021320 
021324 
021324 
021330 
021334 
021340 
021342 
021344 
021350 
021350 
021356 
021356 
021360 
021362 
021362 
021364 
021364 
021366 
021366 
021366 
021374 
021400 



004737 015452 



026527 
001525 



105037 003454 



012746 
012746 
012746 
012746 
104437 
062706 

017502 

012700 
104436 

105737 
001423 



016546 
012746 
012746 
010600 
104417 
062706 



000340 
021646 
000004 
000003 

000010 

002462 

000004 

003454 



005265 003314 



002462 
021522 
000002 



SBTTL AUTO DROP SECTION 



SECTION EXECUTED AFTER THE IN1T CODE WHEN "ADR" FLAG IS SET Br OPERATGR 
SECTION CHtKS FOR A VALID INTERFACE LOCATION. DROPS UNIT IF NO RESPONSE 
FROM INTERFACE 



L$AUTO: : 



BGNAUTO 



002532 17/777 



000006 

016537 002532 015774 

010500 
006200 

104451 

000452 

012775 002320 002452 
004737 01U?Q 



JSR PC.FIRSTU 

WHILE DEVTBLCR5) NE #END DO 



LET TRAPD4 :B» 00 
SETVEC M,*TRAP4,#PRI07 



5 FIND FIRST UNIT 



LET Re :- 3TSSRCR5) 
CLRVEC #4 

IFB TRAPD4 NE #0 THEN 

LET FTLCNTCR5) i- FTLCNTCR5 
PRINTF #AUT0DM,TbSR(R5) 



LET OROPN : - DEVVBLCR5) 
LET RO :» R5 SHIFT -1 

'")00U RO 
ELSc 

LET 3TSDBCRS) : -■ #GSCPK 

JSR PC, USSR 

IF frTS.SSR SETIN fiJTSSRlRS) 



50422$: 








CMP 


DEVTBLCR 




BFQ 


50423$ 


j 


CLRB 


TRAPD4 


;SET VECTOR 4 








MOV 


APRI07.- 




MOV 


0TRAP4,- 




MOV 


#4, -CSP) 




MOV 


03,-CSP) 




TRAP 


CtSVEC 




ADD 


#10, SP 


{ADDRESS TS11 INTERFACE 








MOV 


SJTSSRCR5 


{CLEAR VECTOR AT 4 








MOV 


44.R0 




TRAP 


C*CVEC 




TSTB 


TRAPD4 




BEQ 


50424 J 


) ♦ *l 








INC 


FTLCNKR 


; PRINT ERROR 








MOV 


TSSRCR5) 




MOV 


♦AUTODM, 




MOV 


#2, (SP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADO 


36.SP 


5 SAVE OF UNIT 


ro BE 


DROPPED, 




MOV 


DEVTBLCR 


{ R0=L0GICAL DEVICE NUMBER 




MOV 


R5,R0 




ASR 


RO 


;DR0P THE UNIT; EXEC BGNOU-ENDDU COOL IF 




TRAP 


CJDODU 




BR 


50425$ 


50424$; 






sSEND GET STATUS COMMAND 






MOV 


ttihCPk.a 



;WAIT 
THEN 



Nil 



MISCELLANEOUS SECTIONS 


MAC Y 11 


30(1046) 


C2TSHD. 


PU 06-APR-84 


08:49 




6042 


021400 


032775 


000200 


002462 


6043 


021406 


001423 






6044 


021410 








6045 


021410 


032775 


000100 


002462 


6046 


021416 


001416 






6047 


021420 








6048 


021420 


005265 


003314 




6049 


021424 








6050 


021424 


016546 


002532 




6051 


021430 


012746 


005127 




6052 


021434 


012746 


000002 




6053 


021440 


010600 






6054 


021442 


104417 






6055 


021444 


062706 


000006 




6056 


021450 


004737 


015704 




6057 


021454 








6058 


021454 








6059 


021454 








6060 


021454 


000416 






6061 


021456 








6062 


021456 








6063 


021456 


005265 


C03314 




6064 


021462 








6065 


021462 


016546 


002532 




6066 


021466 


012746 


021616 




6067 


021472 


012746 


000002 




6068 


021476 


010600 






606° 


021500 


104417 






6070 


021502 


062706 


000006 




6071 


021506 


004737 


015704 




6072 


021512 








6073 


021512 








6074 


021512 








6075 


021512 








6076 


021512 


004 737 


015520 




6077 


021516 








6073 


021516 


000647 






6079 


021520 








6080 










6081 


021520 








6082 


021520 








6083 


021520 


104461 






6084 










6085 


021522 


040445 


052502 


020123 


6086 


021530 


051124 


050101 


040440 


608/ 


021536 


020124 


047445 


022466 


6088 


021544 


116 






6089 


021545 


045 


044501 


052116 


6090 


02155^! 


051105 


040506 


042503 


6091 


021560 


041040 


042101 


047440 


6092 


021566 


020122 


047516 


020124 


6093 


021574 


04^523 


020124 


04/524 


6094 


021602 


04U J40 


04 7502 


042526 


6095 


021610 


040440 


022504 


000116 


6096 


021616 


040445 


04 7125 


052111 


6097 


021624 


022440 


030504 


040445 
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IF GT.i.OFL SETIN STSSflCRS) THEN 

LET FTLCNTCR5) :* FTLCNTCR5) ♦ #1 
PRINTF WLINM.0EVTBLCR5) 



JSR PC.DROPUA 

ENDIF 



ELSE 



LET FTLCNTCR5) :* FTLCNTCR5) ♦ #1 
>RINTF #NRDYM,DEVTBL(R5) 



L10013: 



JSR PC.DROPUA 
ENDIF 

ENDIF 

JSR PC,NEXTU 

ENDDO 



ENDAUfO 







SEQ 0143 




BIT 
BEQ 


sts.ssr, 

50426$ 




BIT 
BEQ 


*TS.OFL, 
50427S 




INC 


FTLCNTCR 




MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 


DEVTBLCR 
40FLINM, 
#2.-(SP) 
SP.RO 

C$PNTF 

46 , SP 


50427$: 






50426$: 


BR 


50430$ 




INC 


FTLCNTCR 




MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 


DEVTBLCR 

#NRDYM, - 

#2 , • C 5P j 
5P.R0 
LiPNTF 
#6,SP 


50430$: 






50425$: 







50423$ 



BR 



TRAP 



AUTODM: .ASCII /*ABUS TRAP AT *06*N/ 



.AbCIZ /KA1NTLRFACE BAD OR NOT SET TU ABOVE AD*N/ 



50422$ 



C 5 AUTO 



NRDiM: .ASCIZ /HAUNIT *Di*A NOT RUi*N/ 



hl. t ;' 



MISCtI I ANt UUS l 


ACTIONS 


MACU1 


30(1046) 


CZTSHD, 


PU 06 -APR -64 


06;49 




to^e 


0J16V 


04/040 


05011? 


051040 


t^O 1 *^ 


0^1640 


0545.04 


047045 


000 


MOO 




0<?l646 






MOi 










6KV 










MO* 










M04 










M05 










«•< 1 Ot> 


o*ut*4t 








mo: 


001Mt> 


10 V 5-' 


QQ34b4 




MOS 


o<2i6i>t: 


000002 






MO** 











06 APR -84 06:51 
AUTO DROP SECTION 



PAUP 146 



SfcQ 0144 



M10 

tin 



J-VFN 

DEVICE BUS TRAP HANOL.fR 
OUTPUT} TRAPD4 BYTE 1; TRAPED AT 4 

0: NO TRAP 



TRAP4;; LET TRAP04 iB« TRAPD4 * 01 
RTt 



INCB 



TRAPU4 



CI,' 



MI SCH I ANt OUS 5 


I CI IONS 


MAO 11 501 1046) 06 APR 


C/TSHO. 


PI 1 06 APR y4 


00 j 49 CLEANUP 


mi : 








Ml 3 








6114 








M l r . 








Mlb 








fell " 








feUH 








Ml'» 


021654 






6120 


021654 






ti2i 








6122 








6125 


021654 


004 757 


015452 


6124 


021660 






6125 


021660 






6126 


021660 


026527 


002532 177777 


fel.v 


021666 


001410 




612* 


021670 


004757 


011170 


6129 


021674 






6130 


021674 


016500 


0024 72 


6151 


021700 


104436 




6152 


021702 


004737 


015520 


6155 


021706 






613* 


021706 


000764 




613^ 


021710 






6156 








615"-' 


021710 






6158 


021710 


,044 32 




61 3<* 


021712 


000002 




6140 








6141 








614? 


021714 






614} 


021714 






6144 


0i?l?l4 


104412 





A4 08 5 51 PAGE 

CODING SECTION 



14/ 



SEU 0145 



.SBTTl. CLEANUP CODING SECTION 



j THE CI fcANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
j AT THE END UF EACH PASS. 

I - - 

BGNCLN 
UiCLKANi j 



JSR PC.FIRST'J 

WHILE DEVTDLCR5) NE OEND DO 



JSP PC.WSSR 

Cl.RVbC TSVCUR5) 



JSR PC.NEXTU 
ENDDO 



|FI\J r IRST UNIT. 

50451$; 

CMP DEVTBLCP 

BF.Q 50432$ 

l UA I T FOR UNIT READt OP TIMEOUT, 
iRELEASK INTERRUPT VECTORS for All 0? V . 

MOV TSVCTfR5 

"RAP CSCVEC 

{FIND NEXT UNIT. 



50432$; 



fiH 



504 31$ 



U 10014 t 



EXIT 

.EVEN 

ENOCLN 



CLN 



TRAP CUxIT 

.WORD 1. 10014- . 



TRAP 



C$CLLAN 



H 



MISCM I ANt OUS 
CZTSH0.P11 



M45 

6 14b 
6u: 

6148 
614^ 
6150 
6151 

6155 
6154 
bl55 
6156 
6157 
6158 
6159 
6160 
6161 
6162 
6163 
6164 
6165 
6166 
616? 
6168 
6169 
6170 
6171 
6172 
6173 
6174 
6175 
6176 
6177 
6178 
6179 



SI CI IONS 
06 APR 84 



NACUi 
08:49 



50(1046 1 



DROP 



APR - H4 
UNIT 



SE 



8?tSri 
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SEQ 0146 



02171b 
021716 

0217lt> 
021 '16 
021720 
021722 
021722 
021730 
021730 
021734 
021736 
021736 
021742 
021746 
021752 
021754 
021756 

021762 
021762 
021764 



021766 
021766 
021766 



.SBTTL DROP UNIT SECTION 



I ♦♦ 



l THE DROP-UNH SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 
j TO NO LONGER BE TESTED, THAT CODE SHALL BE EXECUTED WHEN DODU 
{MACRO IS CALLED WHILE IDU FLAG IS NOT SF T BY OPERATOR 
I • * 



L$DU: s 



010005 
006305 

012765 177774 002532 

016500 0024 72 
104436 

013746 015774 

012746 004616 

012746 000002 

010600 

104417 

062706 000006 



000167 
000000 



BGNDU 






LET R5 


: - RO SHIFT 


1 


LET DEVTBLCR5) :- 


tfNINUSE 


CLRVEC 


TSVCTCR5) 





iR5 • LOGICAL DEVICE NUMBER X 2. 

MOV R0.R5 



ASL 



R! 



j SET NOT IN USE FLAG FOR THE DEVICE. 



PRINTF ODROPDM.DRQPN 



104453 



L10015t 



EXIT 

.EVEN 

ENDDU 



DU 



MOV 


rtNINUSE, 


jRELEASE THE INTERRUPT VECTOR, 




MOV 


TSVCTCR5 


TRAP 


CJCVF.C 


jPRINT DROP DEVICE MESSAGE 




MOV 


DROPN. -( 


MOV 


frDROPDM, 


HOV 


*2, -CSP) 


MOV 


SP.RO 


TRAP 


CtPNTF 


ADD 


06, SP 


.WORD 


JUMP 


.WORD 


I Iu0l5 2 



TRAP 



c*ou 



E12 



MISCELLANEOUS SECTIONS 


MACU1 30(1046) 


CZTSHD, 


Pll 06-M°R-84 


08j49 


6180 








6181 








6182 








6163 








6184 








6185 








6186 








618? 








6188 


021770 






6189 


021770 






6190 








6191 








6192 


021770 






6193 


021770 


010005 




6194 


021772 


006305 




6195 


021774 






6196 


021774 


010065 


002532 


6197 


022000 






6198 


022000 


104442 




6199 


022002 






6200 


022002 


011065 


002462 


6201 


022006 






6202 


022006 


012065 


002452 


6203 


022012 


162765 


000002 002452 


62C4 


022020 






6205 


022020 


011065 


002472 


6206 


022024 






6207 


022024 


012746 


000340 


6208 


022030 


016546 


002512 


6209 


022034 


016546 


0024 72 


6210 


022040 


012746 


000003 


6211 


022044 


104437 




6212 


022046 


062706 


000010 


6213 


02205c 






6214 


022052 


005065 


003416 


6215 








6216 


022056 






6217 


022056 


000167 




6218 


022060 


000000 




6219 








6220 








6221 








6222 


022062 






6223 


022062 






6224 


022062 


104452 




6225 








6226 


022064 






6227 
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SEQ 0147 



SBTTL ADD UNIT SECTION 



THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE (A) TESTED FOR THE FIRST TIME, OR (B) RESUMED IN TESTING, 
"EF.AUNIT** IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 



IF 



L*AU:: 



L 10016 j 



BGNAU 



}R5 - LOGICAL DEVICE NUMBER X 2, 

MOV R0.R5 
ASL R5 
; STORE UNIT 4 IN DEVICE TABLE. 

MOV R0.DEVT8 
jGET HARDWARE P TABLE FROM SUPER. 

TRAP CJGPHRD 
I SAVE TSSR ADDRESS. 

MOV CRO),TSS 
- 0? ;SAVE TSDB ADDRESS. 

MOV (R0)*,TS 
SUB 02.TSDBC 
(RO) jSAVb INTERRUPT VECTOR ADDRESS. 

MOV CRO).TSV 
SETVEC TSVCTCR5),TS4INT(R5),0INTPRI j SE T UP INTERUPT PROCESSING COND 



LET 


R5 : * RO SHIFT 1 


LET 


DF.VTBl.CR5) 


:■ RO 


GPHARD RO.RO 




LET 


TSSRCR5) :- 


(RO) 


LET 


TSDBCR5) t- 


(RO) 



LET TSVCUR5) 



LET INTFLGCR5) 
EXIT AU 

.EVEN 
tNDAU 

LNUMUD 



40 



; CLEAR INTERRUPT FLAyS. 



MOV 


4INTPRI, 


MOV 


TS4INTCR 


MOV 


TSVCTCR5 


MOV 


*3, -C3P) 


TRAP 


C$SVEC 


ADD 


010, SP 


CLR 


INTFLGCR 


.WORD 


J$JMP 


.WORD 


L 10016-2 



TRAP 



C*AU 



1.2 
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SEQ 0148 



6228 








6229 








62:50 








6251 








6232 








6233 








6234 








6235 








6236 








6237 


022064 






6238 








6239 


022064 






624^ 


022064 






6241 








6242 


022064 






6243 


022064 


105037 


003441 


6244 


022070 






6245 


022070 


105037 


003440 


6246 








624 7 


022074 






6248 


022074 






6249 


022074 


104402 




6250 








6251 


022076 






6252 


022076 


012702 


022722 


6253 


022102 


004737 


022676 


6254 


022106 


004737 


006510 


6255 


022112 


004737 


015452 


6256 


022116 






6257 


022116 






6258 


022116 


026527 


002532 177777 


6259 


022124 


001434 




6260 


022126 






6261 


022126 


016502 


00?502 


6262 


022132 






6263 


022132 


062702 


OOv.012 


6264 


022136 






6265 


022136 


011265 


002522 


6266 


022)42 


042765 


177400 002522 


6267 


022150 






6268 


022150 


026527 


003254 000001 


6269 


022156 


001014 




6270 


022160 






6271 


022160 


016546 


002522 


6272 


02216^ 


016546 


002532 


6273 


022170 


012746 


003772 


6274 


022174 


012746 


000003 


6275 


022200 


010600 




6276 


022202 


104417 




6277 


022204 


062706 


000010 


6278 


022210 






6279 


022210 






6280 


022210 


004757 


015530 


6281 


022214 






6282 


022214 


C00740 




6283 


022210 







.TITLE 
.SBT1L 

{ ♦ * 

j TEST 



Tli : 



Tl.li 



HARDWARE TESTS 
TEST 1: BASIC FUNCTIONS, 

TO EXECUTE ALL TS04 FUNCTIONS, 

BGNMOD 
BGNTST 

LET RANDOM jB» 40 
LET EXPBOT :B« 40 

BGNSU6 



LET R2 :•- 4BF3EQ0 

JSR PC.BFSEQ 

JSR PC.EXALL 

JSR PC.FIRSTU 

WHILE DEVTBL(RS) NE 4ENU DO 



LET R2 : ■ MSGPKA(R5) 

LET R2 :• R2 ♦ 412 

LET TS4CLCR5) :- CR2) CLR.BY 

IF PASCNTCR5) EC) 41 THEN 

PRINTF OCODELM.UEVTBLCRS), 



SCLR THE RANDOM OPERATIONS FLAG. 

CLRB RANDOM 
;CLR EXPECT BOT FLAG. 

CLRB EXPBOT 

{SUBTEST 1 - SET CHAR. DRIVE 1NIT. GET S 

TRAP CiBSUB 

;ADR OF CMD SEQ. 

MOV 4BFSEQ0, 
SET UP CMD SEQ. 

EXECUTE CMD SEQ ON ALL DEVICES. 
FIND THE FIRST UNIT. 
WHILE THERE ARE MORE DEVICES: 
504 335: 

CMP DEVOUR 
BEQ 50434* 
{GET MSG PACKET ADR. 

MOV MSGPKACR 
;GET XSTAT2 ADR, 

ADD 412. R2 
4177400 {STORE CODE LEVEL FROM DTR BrTE, 

MOV (R2).TS4 
BIC 4177400. 
{IF THIS IS PASS 1 THEN: 

CMP PASCNTCR 
BNE 50435$ 
TS4CL(R5^ {PRINT THE TS04 MICROCODE LEVEL. 



MOV 


TS4CL.CR5 


MOV 


DEVTBLCR 


MOV 


4C0DELH, 


MOV 


*3. (SPl 


MOV 


SP.RO 


TRAP 


CJFNTF 


ADD 


410. SP 



ENDIF 

JSR PC.NEXTU 
ENDDO 



jFXND NEXT UNIT, 



504 35$ 



50454$ 



BR 



504335 



G12 



HARDWARE-' TfSTS 


MACUi 


30(1046) 


C/TSHD, 


?\i 06 -APR 84 


08:49 


6284 


022216 






t>285 


022216 






6286 


022216 


104403 




628 7 








6288 


022220 






6289 


022220 






6290 
6c?91 

6292 


022220 


104402 




022222 






6293 


022222 


012702 


0227 74 


6294 


022226 


004/37 


0226 76 


6295 


022232 


004737 


006510 


6296 


022236 






6297 


022236 


105037 


003452 


6298 


022242 






629^ 


022242 






6300 


022242 


104403 




6301 








6302 


022244 






6303 


022244 






6304 


022244 


104402 




6305 








6306 


022246 






6307 


022246 


012702 


023006 


6308 


022252 


004737 


022676 


6309 


022256 


004737 


006510 


6310 


022262 






6311 


022262 






6312 


022262 


104403 




6313 








6314 


022264 






6315 


022264 






6316 


022264 


104402 




6317 








6318 


022266 






6319 


022266 


012702 


023100 


6320 


022272 


004737 


022676 


6321 


022276 


004737 


006510 


6322 


022302 






6323 


022602 






6324 


022302 


104403 




6325 








6326 


022304 






6327 


022304 






6328 


022304 


104402 




6329 








6 3^0 


022 306 






6331 


022306 


012702 


025152 


6332 


022312 


004 737 


0226 76 


6333 


022316 


004737 


006510 


6334 


022322 






6535 


022322 






6 3 36 


022322 


104403 




6357 








6338 


022 324 






6339 


022324 
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TEST li BASIC FUNCTIONS. 



L 10020: 



Tl.2: 



L 10021: 



T1.3: 



L 10022: 



11.4: 



L10023: 



T1.5: 



1.10024: 



U,b: 



ENDSUB 



BGNSUB 



LET R2 



0BFSFQ1 



JSR PC.BFSEQ 
JSR PC»EXALL 
I.ET S T AFLG :B- 00 

ENDSUB 



BGNSUB 



LET R2 

JSR 
JSR 
ENDSUB 



BGNSUB 



» 0BFSEQ2 

PC.BFSEQ 

PC.EXALL. 



LET R2 j » GBFSFQ3 

JSR PC.BFSEQ 

JSR PC.EXALL 

ENDSUB 



BGNSUB 



Ik J R2 : = 0BFSF.Q4 

JSR PC.BFSFQ 

JSR PC.EXALL 

FNDSV'B 



BGNSUB 



SEQ 0149 



jSUBTEST 2 - REWIND. 



,ADR OF CMD SEQ. 



TRAP 



TRAP 



MOV 



C$ESUB 

CJBSUB 
SBFSbQi. 



j SET UP CMD SEQ. 

{EXECUTE CMD SEQ ON ALL DEVICES. 

{CLEAR START FLAG 

CLRB STAFLG 



TRAP C$ESUtJ 

{SUBTEST 3 WRITE/VERIFY. 

TRAP C$BSU8 

;ADR OF CMD SEQ. 

MOV *BFSEQ2, 

{SET UP CMO SEQ. 
{EXECUTE CMD SEQ ON ALL DEVICES. 

RAP C$ESU6 

{SUBTEST 4 • WRITE TAPE MARK, ERASE. 

TRAP C$BSU8 

{ADR OF CMD SEQ. 

MOV $eFSEQ3, 
{SET UP CMD SEQ. 
{EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CSESUB 

{SUBTEST 5 ~ SPACE FILES. 

TRAP C$BSUB 

i ADR OF CMD 5FQ, 

MOV &BFSEQ4, 
{SET UP CMD SEQ. 
{EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP C$ESUD 
{SUBTEST 6 • SPACt RLCORC'i. 



•11.2 
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6*40 


022324 


104402 




6341 








634c" 


022326 






6543 


022326 


012702 


023214 


6344 


022332 


004737 


0226 76 


6345 


022336 


004 737 


006510 


6346 


022342 






634? 


022342 






6343 


022342 


104403 




6349 








6350 


022344 






6351 


022344 






6352 


022344 


104402 




6353 








6354 


022346 






6355 


022346 


012702 


023266 


6356 


022352 


004 737 


022676 


6357 


022356 


004737 


006510 


6.:>58 


022362 






6359 


022362 






6360 


022362 


104403 




6361 








6362 


022364 






6363 


022364 






6364 


022364 


104402 




6365 








6366 


022365 






6367 


022366 


012702 


023320 


6366 


022372 


004 737 


0226 76 


6369 


022376 


004 737 


006510 


6370 


022402 






6371 


022402 






6372 


022402 


104403 




6373 








6374 


022404 






6375 


022404 






6376 


022404 


104402 




6377 








6378 


022406 






6379 


022406 


012702 


023352 


6380 


022412 


004737 


0226 76 


6381 


022416 


004737 


006510 


6382 


022422 






6383 


022422 






638a 


022422 


104403 




6385 








6386 


022424 






6387 


022424 






6388 


022424 


104402 




6389 








6390 


022426 






6391 


022426 


012702 


023404 


6 392 


022432 


004737 


022676 


6393 


0224 36 


004737 


006510 


6.394 


022442 






6395 


022442 
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TEST I: BASIC FUNCTIONS. 



L 10025: 



T 1 , 7 : 



L 10026: 



T1.8: 



L10027; 



T1.9: 



L10030: 



Tl. 10s 



LET R2 j- 4BFSEQ5 



J5R 

JSR 
ENDSUB 



BGN5UB 



PC.BFSEQ 
PCEXALL 



LET R2 I" 0BFSEQ6 



JSR 
JSR 
ENDSUB 



BGNSUB 



PC.BFSEQ 

PC.EXALL 



LET R2 :- #BFSEQ7 

JSR PC.BFSEQ 
JSR PC.EXALL 
ENDSUB 



BGNSUB 



LET R2 :* SBFSF.Q8 

JSR PC.BFStQ 

JSR PC.EXALL 
ENDSUB 



BGNSUB 



LET R2 :» WSEQ9 



L1Q031: 



JbR 
JSR 
ENDSUB 



PC.BFStQ 
PC.EXALL 



TRAP 



SEQ 0150 
CSBSUB 



,ADR OF CMD SEQ. 

MOV 4BFSEQ5, 
; SET UP CMD SEQ. 
j EXECUTE CMD SEQ ON ALL DEVICES. 



TRAP 

i SUBTEST 7 - WRITE RETRY. 

TRAP 

,AOR OF CMD SEQ. 

MOV 
;SET UP CMD SEQ. 
jEXECUTt CMD SEQ ON ALL DEVICES. 

TRAP 

j SUBTEST 8 - READ REV RETRr. 

TRAP 

$ ADR OF CMD SEQ. 

MOV 
iSET KP CMD SEQ. 
jEXECUTE CMD SEQ ON ALL DEVICES. 

TRAP 

{SUBTEST 9 - READ FWD RETRY. 

TRAP 

;ADR OF CMD SEQ. 

MOV 
s SET UP CMD SEQ. 
jEXECUTc CMD SEQ ON ALL DEVICES. 



iSUBTEST 10- CLEAN. 



i ADR OF CMD SEQ. 



TRAP 



TRAr 



MOV 



C*ESUB 

C$BSUB 
0BFSEQ6, 

C5ESUB 

CSBSUB 
4BFSEQ7, 

C$ESUB 

C5BSUB 
*BFSEQ6, 

CSESUB 

CJBSUB 
0BFSEQ9, 



j SET UP CMD SEQ. 

iEXECUTE CMD SEQ ON ALL DEVICES. 
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TEST 1: BASIC FUNCTIONS, 



6396 


022442 


104403 






639? 










6398 


022444 








6399 


022444 








6400 


022444 


104402 






6401 










6402 


0224*6 








6403 


022446 


012702 


023426 




6404 


022452 


004 737 


0226 76 




6405 


022456 


004 737 


006510 




6406 


022462 








64C7 


022462 


112737 


000001 


003444 


6408 


022470 


004737 


006510 




6409 


0224 74 








6410 


0224 74 


105037 


003444 




6411 


022500 








6412 


022500 








6413 


022500 


104403 






6414 










6415 


022502 








6416 


022502 


013702 


003334 




6417 


022506 


062702 


000012 




6418 


022512 








6419 


022512 








6420 


022512 


020237 


003334 




6421 


022516 


001402 






6422 


02252C 


000342 






6423 


022522 








6424 


022522 


000773 






6425 


022524 








6426 


022524 








6427 


022524 


105237 


003447 




6428 










6429 


022530 








64 30 


022530 








6431 


022530 


104402 






6432 










6433 


022532 








6434 


022532 


012737 


104401 


003346 


64 35 


022540 


004737 


014504 




6436 


022544 








6437 


022544 


012737 


000012 


002316 


6438 


022552 


004737 


014504 




6439 


022556 








6440 


022556 


112737 


000001 


003444 


644 A 


022564 








6442 


022564 


012737 


000011 


002316 


6445 


022572 


004 737 


014504 




6444 


022576 








6445 


022576 


012737 


000012 


002316 


6446 


022604 


004 737 


014504 




6447 


022610 








6446 


022610 


012737 


104001 


003346 


6449 


022616 


004 737 


014504 




6450 


022622 








6451 


022622 


012737 


000011 


002316 



Tl. 11; 



L 10032: 



T1.12: 



BGNSUB 



LET R2 :- 0BFSE1O 

JSR PCBFSEQ 

JSR PC.EXALL 

LET SWBFLG :B« *1 

JSR PC.EXALL 

LET SWBFLG :B« 00 

ENDSUB 



LET R2 :* OATAWT * 410. 



WHILE R2 NE OATAWT 00 {UNTIL 



SWAB -(R2) 
ENODO 



LET T1SWB :B» T1SWB ♦ 01 



BGNSUB 



LET CMOWRD 



#RDR 



JSR 
LET 


PC VFEXC 
CMDPKT*CP.CNT :* 


#12 


JSR 
LET 


PC, VFEXC 
SWBFLG :B* $1 




I FT 


CMDPKT*CP.CNT :- 


#11 


JSR 

LET 


PC. VFEXC 
CMDPKT*CP.CNT :* 


m 


JSR 
L C .T 


PC, VFEXC 

CMOWRD : - ORDF 




JSR 
LET 


PC.VFEXC 
CMDPKT»CP.CNT j* 


m 



SEQ 0151 
TRAP C$ESU8 
{SUBTEST 11 - WTV SWAPPED DATA BYTES. 

TRAP C*BSUB 

{ADR OF CMD SEQ. 

MOV 0BFSE1O. 
jSET UP CMD SEQ. 
{WRITE/VERIFY RECORDS 1 AND 2. 
{ENABLE BYTE SWAPPING. 

MOVB /U.SWBFL 
{WRITE/VERIFY RECORDS 3 AND 4, 
{DISABLE BYTE SWAPPING. 

CLRB SWBFLG 

TRAP C$ESUB 

jINIT WRITE BUFFER POINTER. 

MOV DATAWT.R 
ADD #10., R2 
10 BYTES HAVE BEEN SWAPPED. 

50436$: 

CMP R2.DATAW 
BEQ 50437$ 
{SWAP DATA BYTES IN WRITE BUFFER. 

BR 50436$ 
50437$: 
jSET Tl SWAP BYTES FLAG FOR "CKDATA" 3U6 

INCB T1SWB 

{SUBTEST 12 - READ SWAPPED DATA BYTES. 

TR^P CSBSUB 

5 CMD IS READ REV. 

MOV SRDR.CMD 

{VERIFY ODD LENGTH SWAP t RECORD 4). 
{CHANGE BYTE COUNT TO 10. 

MOV 012.CMDP 

{VERIFY EVEN LENGTH SWAP CRECORD 3). 
{ENABLE BYTE SWAPPING. 

MOVB frl.SWBFL 

{CHANGE BYTE COUNT TO 9. 

MOV Oli.CMDP 

{VtRIFy ODD LENGTH SWAP CRECORD 2). 
{CHANGE BYTE COUNT TO 10. 

MOV <U2.CMDP 

l VERIFY EVEN LENGTH SWAP k RECORD l\ 
{CMD IS READ FWD. 

MOV tfPDF , CMO 

{VERIFY EVEN LENGTH SWAP i RECORD 1 *» . 
{CHANGE BITE COUNT TO 9. 

MOV *ll,CMl>P 



J12 
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6452 


^226 30 


004737 


014504 


6453 


022634 






6454 


022634 


105037 


003444 


6455 


022640 






6456 


022640 


012737 


000012 002316 


6457 


022646 


004737 


014504 


6453 


022652 






6459 


022652 


012737 


000011 002316 


6460 


022660 


004737 


014504 


6461 








6462 


022664 






6463 


022664 






6464 


022664 


104403 




6465 








6466 


022666 






646^ 


022666 


105037 


00344V 


6466 








6469 








64 70 


022672 






6471 


022672 


104432 




6472 


022674 


000554 





L 10033: 



JSR PC.VFEXC 
LET SUBFLG :B- #0 

LET CMDPKT*CP.CNT 

JSR PC.VFEXC 
LET CMDPKT*CP,CNT 

JSR PCVFEXC 

ENDSUB 



LET T1SWB :B- ifO 



EXIT 



TST 



012 



SEQ 0152 



;VERIFY ODD LENGTH SWAP (RECORD 2). 
DISABLE BYTE SWAPPING. 

CLRB SWBFLG 
j CHANGE BYTE COUNT TO 10. 

NOV 012.CHDP 
j VERIFY EVEN LENGTH SWAP (RECORD 3). 
; CHANGE BYTE COUNT TO 9. 

MOV 411.CMDP 

{VERIFY ODD LENGTH SWAP (RECORD 4). 



TRAP C$ESUB 

; CLEAR Tl SWAP BYTES FLAG 

CLRB T1SWB 



TRAP C*£XIT 
.WORD L10017-. 



K.1.2 
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TEST 1; BASIC FUNCTIONS. 



SfcQ 0153 



64 73 






6474 






64 75 






6476 






6477 






6478 






6479 


022676 




6480 


022676 


012701 


6481 


022702 




6482 


022702 




6483 


022702 


021227 


6484 


C22706 


001402 


6485 


022710 




6486 


022710 


012221 


6487 


022712 




6488 


022712 


000773 


6489 


022714 




6490 


022714 




6491 


022714 


012711 


6492 


022720 


000207 


6493 






6494 






6495 






6496 






6497 






6498 


022722 


140004 


6499 


022724 


000200 


6500 


022726 


000001 


6501 


022730 


000000 


6502 


022732 


100013 


6503 


022734 


000001 


6504 


022736 


000001 


6505 


022740 


000000 


6506 


022742 


140004 


650/ 


022744 


000020 


6508 


022746 


000001 


6509 


022750 


000000 


6510 


022752 


100017 


6511 


022754 


000001 


6512 


022/56 


000001 


6513 


022760 


000000 


6514 


022762 


140004 


6515 


022764 


000040 


6516 


022766 


000001 


6517 


022770 


000000 


6518 


022772 


177777 


6519 






6520 


022774 


102010 


6521 


022776 


000001 


6522 


023000 


000002 


6523 


023002 


000000 


6524 


023004 


177/77 


6525 






6526 


02 3006 


104105 


6527 


023010 


004000 


6528 


023012 


000001 



} 



SUBROUTINE TO MOVE A COMMAND SEQUENCE TO THE SEQUENCE TABLE, 

INPUTS: R2 » FWA OF COMMAND SEQUENCE. 

OUTPUTS: 

REGISTERS: 

CALLS: 



003460 



177777 



177777 



BFSEQ: LET Rl :» OCMDSEQ 

WHILE (R2) NE 0END DO 

LET (Rl)* :* (R2)> 

ENDDO 

LET (Rl) :=* 0END 
RTS PC 

i BASIC FUNCTION COMMAND SEQUENCE 

BFSEQO; .WORD SCH 

200 

1 

OR I 

1 
1 


SCH 
?0 
1 


GE5 
1 
1 


SCH 
40 
1 

.WORD ENID 

RWD 
1 
? 

.WORD END 



lINIT SEQ TABLE ADDRESS. 

MOV tfCMDSE<3, 
{WHILE THERE ARE MORE COMMANDS: 

50440$: 

CMP i'R2) t #EN 

BEQ 50441$ 

{MOVE COMMANDS TO SEQ TABLE. 

MOV (R2)*,(R 

BR 50440$ 
50441$: 

{STORE END OF SEQUENCE CODE. 

MOV 4END,CR1 
{RETURN. 



iSET CHAR. 200. 



{DRIVE INIT. 



{SET CHAR. 20 



{GET STATUS. 



{SET CHAR. 40. 



(1) 



(2) 



(3) 



C4) 



(5) 



BFSEQli 



{REWIND TWICE, 



(6> 



BFSEQ2: 



U'TV 
DATCNT 

1 



{WRITE/VERIFY PAT 1. 



\. • 



' ^ 



L12 
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BASIC FUNCTIONS. 



SEQ 0154 



6529 


023014 


000001 


653C 


023016 


104105 


6531 


023020 


004000 


6532 


323022 


000001 


6533 


023024 


000002 


6534 


023026 


104.05 


6535 


023030 


004000 


6536 


023032 


000001 


6537 


023034 


000003 


6538 


023036 


104105 


6539 


023040 


004000 


6540 


023042 


000001 


6541 


023044 


000004 


6542 


023046 


104105 


6543 


023050 


004000 


6544 


023052 


OOOOOl 


6545 


02305' 


000005 


6546 


023056 


104105 


654 7 


023060 


004000 


6546 


023062 


OOOOOl 


6549 


023064 


000006 


6550 


023066 


104105 


6551 


023070 


004000 


6552 


023072 


OOOOOl 


6553 


023074 


000000 


6554 


023076 


177777 


6555 






6556 


023100 


100011 


6557 


023102 


OOOOOl 


6558 


027104 


OOOOOl 


6559 


023106 


000000 


6560 


023^ 10 


104005 


6561 


023112 


004000 


6562 


023114 


000010 


6563 


023116 


OOOOOl 


6564 


023120 


100411 


6565 


023122 


OOOOOl 


6566 


023124 


000010 


6567 


023126 


000000 


6568 


023130 


100011 


6569 


023132 


OOOOOl 


6570 


023134 


OOOOOl 


6571 


023136 


000000 


6572 


023140 


101011 


6573 


023142 


OOOOOl 


6574 


023144 


OOOOOl 


6575 


023146 


000000 


6576 


023150 


177777 


6577 






6578 


023152 


1054 10 


6579 


023154 


000002 


6580 


023156 


OOOOOl 


6581 


023160 


000000 


6582 


023162 


1050L0 


6583 


023164 


000002 


6584 


0^3166 


OOOOOl 



.WORD 



BFSEQ3: 



.WORD 



BFSEU4 



1 

WTV 

DATCNT 

1 

2 

WTV 

DATCNT 

1 

3 

WTV 

OATCNT 

1 

4 

U T V 

DATCNT 

1 

5 

WTV 

DATCNT 

1 

6 

WTV 

DATCNT 

1 



END 

WTM 

1 

1 



WRI 

DATCNT 

10 

1 

ENS 

1 

10 



WTM 

1 

1 



WTR 

1 

1 



END 

SFR 

*■> 

L. 

1 

5FF 



{WTV PAT 2. 
;WTV PAT 3. 
{WTV PAT 4. 
j WTV PAT 5. 
jWTV PAT 6. 
{WTV PAT 0. 



(8) 



C9) 



CIO) 



cm 



(12) 



(13) 



{WRITE TAPE MARK, 



{WRITE 10 RECORDS. 



{ERASE 10 TIMES. 



{WRITE TAPE MARK, 



{WTM RETRY 



(14) 



(15) 



(16) 



(17) 



(18) 



jSPACE ^ r Tl.ES REV, 



\ SPACE 2 FILES FWD. 



( 19) 



(20) 



M12 
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TEST 1: BASIC FUNCTIONS. 



SEQ 01S5 



6585 


023170 


000000 


6586 


023172 


105410 


6587 


023174 


000001 


6588 


023176 


000002 


6589 


023200 


000000 


6590 


023202 


105010 


6591 


023204 


000001 


6592 


02320C 


000002 


6593 


023210 


000000 


6594 


023212 


177777 


6595 






6596 


023214 


102010 


6597 


023216 


000001 


6598 


023220 


000001 


6599 


023222 


000000 


6600 


023224 


104010 


6601 


023226 


000007 


6602 


023230 


000001 


6603 


023232 


000000 


6604 


023234 


104410 


6605 


023236 


000007 


6606 


023240 


000001 


6607 


023242 


000000 


6608 


023244 


104010 


6609 


023246 


000001 


6610 


023250 


000007 


6611 


023252 


000000 


6612 


023254 


104410 


6613 


023256 


000001 


6614 


023260 


000007 


6615 


023262 


000000 


6616 


023264 


177777 


6617 






6618 


023266 


102010 


6619 


023270 


000001 


6620 


023272 


000001 


6621 


023274 


000000 


6622 


023276 


104005 


6623 


023300 


004000 


6624 


023302 


000001 


6625 


023304 


000001 


6626 


023306 


105005 


6627 


023310 


004000 


6628 


023312 


000001 


6629 


023314 


000001 


6630 


023316 


177777 


6631 






6632 


023320 


10440.1 


6633 


023322 


004000 


6634 


023324 


000001 


6635 


023326 


000001 


6636 


023330 


105401 


6637 


023332 


004000 


6638 


023334 


000001 


6639 


023336 


000001 


6640 


023340 


125401 



.WORD 



BFSEQ5: 



.WORD 



BFSEQb: 



.WORD 



HFSEQ7; 




SFR 

1 
2 


SFF 

1 

2 



END 

RWD 

1 

1 



SRF 

7 

1 



SRR 

7 

1 



SRF 

1 

7 



SRR 

1 

7 



END 

RWD 

1 

1 



WRT 

DATCNT 

1 

1 

WRR 

DATCNV 

1 

1 

END 

RDM 

DATCNT 

1 

1 

RNR 

DATCNT 

1 

1 

RNF 



{SPACE 2 FILES REV, 



{SPACE 2 FILES FWD. 



(21) 



(22) 



{REWIND. 



(23) 



;SPACE 7 RECORDS FWD. (24) 



{SPACE 7 RECORDS REV. (25) 



s SPACE 7 RECORDS FWD. (26) 



.•SPACE 7 RECORDS REV, (27) 



{REWIND. 



{WRITE. 



{WRITE RETRY. 



(28) 



(29) 



(30) 



;REAU REV. 



{READ NEXT REV, 



{READ NEXT f'WU. 



(31) 



I 32 ^ 



( 33 ) 



N12 



HARDWARE TESTS MAC til 30(1046) 
CZTSH0.P11 06-APR-84 08:49 



06-APR-84 08:51 PAGE 158 

TEST 1: BASIC FUNCTIONS. 



SEQ 0156 



b641 


023342 


004000 


6642 


023341 


000001 


664 3 


023346 


000001 


6644 


023350 


177777 


6645 






6646 


023352 


104001 


664? 


023354 


004000 


6648 


023356 


000001 


6649 


023360 


000001 


6650 


023362 


105001 


6651 


023364 


004000 


6b5? 


023366 


000001 


6653 


023370 


000001 


6654 


023372 


125001 


6655 


023374 


004000 


6656 


0233/6 


000001 


6657 


023400 


000001 


6658 


0234C2 


177777 


6659 






6660 


023404 


101012 


6661 


023406 


000001 


6662 


023410 


000001 


6663 


023412 


000000 


6661 


023414 


102010 


6665 


023416 


000001 


6666 


023420 


000001 


6667 


023422 


000000 


6668 


023424 


177777 


6669 






667C 


023426 


104105 


6671 


023430 


000012 


6672 


0234 32 


000001 


6673 


0234 34 


000000 


6674 


023436 


104105 


6675 


023440 


000011 


6676 


023442 


OOOOtl 


6677 


023444 


000000 


6678 


023446 


177777 


66 79 






6690 






6601 


023450 




6682 


023450 




6683 


023450 


104401 



.WORD 



BFSEQ8: 



.WORD 
BFSEQ9: .WORD 



.WORD 



BfSElO; 



L 10017: 



.WORD 
.FVFN 

ENDTST 



DATCNT 

1 

1 

END 

RDF 

DATCNT 

1 

1 

RPF 

DATCNT 

1 

1 

RPR 

DATCNT 

1 

1 

END 

CLN 

1 

1 



RWD 

1 

1 



END 

VITV 
12 
1 
o 

WTV 

u 

1 



END 



j READ TWD. 



j READ PREVIOUS FWD. 



{READ PREVIOUS REV. 



(34) 



(35) 



(36) 



{CLEAN. 



{REWIND 



(37) 



(38) 



{END W SEQUENCE. 

;WRITE/VERIF^ EVEN LENGTH. (39) 



;WRlTE/VERXFt ODD LENGTH. 



(40) 



TRAP CJfcTST 



I) I '> 



HARDWARE TESTS MACU1 30 I 104b) 
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66M 








66A5 








6o^6 








668 .* 








668* 








6669 


023452 






bt»O0 


025452 






66*1 








6692 


023452 






6693 


0C5452 


112737 


000001 


*694 


023460 






6C>95 


023460 


105037 


003440 


60*6 


023464 






669 " 


023464 


012702 


004000 


6698 


0234 70 


005502 




6699 


0234 72 






6"00 


0234 72 


010237 


003 356 


6. '01 


0234 76 


005137 


003356 


6/02 


023502 


004/37 


006444 


6703 


023506 






6 704 


023506 


105737 


003452 


6705 


023512 


001404 




6/06 


023514 


004737 


0064/0 


6/0/ 


023520 






to/Ofl 


023520 


10503/ 


003452 


6 709 


023524 






6710 


02 5524 






6711 


023524 






67U 


023524 


012721 


104105 


tni 


023530 






6714 


023550 


012721 


004 000 


6715 


023554 






6/16 


023554 


012702 


177740 


6717 


023540 


005102 




6/18 


023542 






6/19 


023542 


010221 




6/20 


023544 






6/21 


02 3544 


012721 


000007 


6 .',?*■» 


023550 






r>??* 


023550 






6 7^4 


023550 






6/25 


023550 






6 726 


023550 


020127 


003550 


6 72 7 


025554 


002012 




6/28 


023556 






6/29 


023556 


063757 


005 560 


6 730 


023564 






6/31 


023564 


015702 


005562 


6732 


0215/0 


042 702 


17 774 1 


6 7 35 


023574 


004 7 72 


023732 


6/34 


02 5600 






6 7 35 


02 3600 


000/6 3 




6 / 36 


02 5602 






6 7 5 / 


02 3602 






f,,M8 


02 360' 


0127U 


17//// 


6759 


Q*!3&G6 


QQ4/57 


0Q(*5iU 
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TEST 2s DATA RELIABILITY. 



SEQ 0157 



.SBTTL TEST 2i DATA RELIABILITY. 



j * 



I TEST TO CH5CK THE DATA RELIABILITY OF THF TS04, 



T2u 



003441 



003362 



fcoNTST 

LET RANDOM :B- 01 

LET EXPBOT :R- 00 

LET R2 j- ODATCNT <>1 

LET LENMSK : - COMP R2 



JSR PC.SC'TCM 

IF STAF'LG NE 00 THEN 



JSR PC.SETRw 
LET STAFLU :B- 40 

ENOIF 

I f 1 CRi)» t • OUTV 

IF T (Rl)» •• ODATCNT 

LET R2 :• COMP ORNOPSC 

LET (Rl )* i - R2 
I M iRi). } - ORANP 
RfcPt AT 

WHIl E Rl IT OSEOtNU l)U 

\ \ T HMNS : ♦ MANS . RANH 



j SET THE RANDOM OPFRAT 


tONS FLAG 


f 




MOVB 


Ol.RANDO 


iCl EAR EXPFCT BOT FLAG 








CLRB 


EXPOOT 


.•SET LJP THE RECORD LENGTH MASK, 






MOV 


ODATCNT, 




DEC 


R2 


j ALLOW MAXIMUM BUFER, 








MOV 


R2.LENMS 




COM 


LENMSK 


iCMD 1 • SE1 CHARACTERISTIC, 




1 IF STARTING THENj 








TSTR 


STAf LG 




BEQ 


50442$ 


iCM02-RfcUlND 






iCLR START FLAG, 








CLRB 


STAFLl'i 


504421 


. 




|CM03 • WRITE/ VFRIFr . 








MOV 


•W T V . C R I 


jSt T BRF TO MAX FOR PATTERN GENERATION. 




MOV 


ODATCNT, 




MOV 


ORNOPSC. 




COM 


♦» i 


I 51 OPERATIONS. 








MOV 


R2.(RL ♦ 


1 RANDOM PATTERN, 








MOV 


ORANP, t** 



|A{ PEAT TO EOT: 

5044 1| : 
I HI I SfcU THL UITH RANDOM CMOS, 

50444 I j 

CMP Rl.JStdE 

BGE 5044M 



ADO H4NH.RAN 

IET R»» i- RANS ClR.Mi Oi 7/741 |«2 * RANDOM 10 36 > . 

MOV 

BEC 

J'.M PL t yRANCM0CR2) * St T OP A RANDOM CMP • BR* . 

ENODO 

HR 
50445$ : 
IET Uli ) :- *»NQ iSTORl I NO 0> SEUUENCt i? .UU IN ' *BL \ . 

MiH dtNP.vRl 

JbR DCtbXALL iUU LXtCUTL ALL CMOS IN i£Jl£NCt TAUlU 



RANS.R2 
01 * / M 1 , 



>C444t 



CI 



MAROWARI 11 SIS MAC it I S0U04t>) Oh APR 84 08 i M PAUL U.O 
C/TSHO.PU Ob APR 84 08: 4 ( > TF!>1 3: DATA REL IAHII I Tt , 



6 740 
b 74 I 
b.'42 
b.*4 5 
6 744 
b745 
b/4t> 
* 74 ; 
bMfl 
6 74^ 
6750 
b.'bl 
6 752 
6755 
6 754 
6 755 
6 756 
6757 
6 758 
6759 
6^60 
6 761 
6762 
6763 
6 764 
6 765 
6766 
6767 
6 768 
6 764 
6 7 70 
6771 

6 7 72 
67 7* 

6 i 74 
6 7 75 
r,/76 
6777 



033M3 

03 36 13 
023616 
033616 
033620 
033633 
023622 
023636 
033630 
033633 
033634 



03 5644 
023652 
033656 
033656 
033664 
023664 
0236 70 
0336/4 
0236 74 
023700 
033700 
023 706 
023706 
023712 
023716 
023716 
035723 

033726 
023/26 
033730 



012701 003460 

005703 
001753 

105337 C03450 

000240 

000240 

000240 

004 737 035156 



023640 00473 7 023772 



012737 
005137 



17 7740 
003464 



0137 57 003464 



012711 
004 737 

105037 
112737 

012701 
00475 7 

012711 
004737 



1044 32 
OOOi 74 



177777 
006510 

003450 

000001 

005460 
0064 70 

17 7 7 7 7 
006510 



003464 
0034 74 



003443 



l.t-T Rl j- OCMDSfcQ 
UNTIL R3 NE 00 

LET ALLfcOT sB- All.fcOT * 01 



NOP 
NOP 
NOP 
JSR 



PC.T5WF0T 



J^R PC.RANRO 

LET CMDSEQ*4 ;• COMP ORNOPSC 



LET CMD5ECM4 :■ CMDSEQ>4 

I FT (Rl) :• Of NO 

JSR PC.EXALt 

LfcT ALLF.Ol' :B- CO 

LLT RPTFLll :B- o\ 

tKT Rl : » OCMOSF.Q 

J'iH PC.SFTRW 

I I T (Rl) :• *END 

JSR PCttXAl L 
EXIT TST 







SEQ 015ft 


lINIT CMD SEQ TBI. 


POINTER, 






MOV 


»CMDSF.Q, 


(REPEAT UNTIL EOT 


IS REACHED 






TST 


U?_ 




BEQ 


5044 5* 


iKUAG ALL UNITS o) 


LOT 






INCB 


ALLEOT 



iWRITE ONE RECORO RErOND EOT ON ALL UNI T 
j SO MAT SHORTER READ STOP DISTANCE 
j SHALL POSITION HEAD IN CLEAN IRG GAP 
i READ REV THAT EXTRA REC TO RE POSITION 
I SET UP READ REV/FUO CMOS, 
\fi Of RECORDS FOR READ REV. 

MOV ORNOPSC . 

COM CM0SEQ*4 

jO Of RECORDS TOR RFAD FORWARD. 

MOV CM0SE0'4 

jSTORF END OF SFQUENSF CODE IN SEQ T:\-ilF 

MOV Qi i'K :\n 

jGO EXECUTE READ REV/FuO 0> I AST N JECOR 
iCLFAR ALL UNITS 3 EOT FLAG 

CLRB All EOT 

;REQUE.ST PERFORMANCE REPORT DURING REWIN 

MOVB Ol.RPTFt 

jINIT SEQ TBI POINTER, 

MOV CCMOSFQ, 

I STORE REWIND IN SEQ TBL . 
iSTORt END IN SFQ TBI , 

MOV *EN0AR1 

jEXECUTE REWIND CMD ON ALL uNHS 



TRAP C«EXIT 

,WURD L 10034 



I) 1. 5 



J 
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Ob APR 



TEST 2: DATA RELIABILITY. 



SEQ 0159 



b^ :» 








o77<* 








b 780 








6781 


025752 


024060 




6 78.? 


023734 


024046 




678? 


023736 


024046 




6 784 


023740 


024046 




6 785 


023 742 


024046 




6^86 


023744 


024046 




6787 


023746 


024046 




6788 


023750 


024046 




6 789 


023752 


0257 72 




6 790 


023 754 


0237 72 




6701 


023756 


023772 




6 793 


023760 


023/72 




6 79? 


023762 


023772 




6794 


023764 


025772 




6795 


023766 


023772 




6796 


023770 


025772 




6797 








6 798 








6 799 








6800 








6801 








6802 








6803 








6804 








6805 








680t> 








6807 








6808 


023772 






680^ 


023772 


012721 


104401 


6810 


023776 






6811 


0237 76 


012721 


004000 


681? 


024002 






6813 


024002 


063757 


003362 


6814 


024010 






6815 


024010 


013702 


003560 


6816 


024014 


042702 


177740 


6817 


024020 






6818 


024020 


010221 




6819 


024022 






6820 


024022 


012721 


000007 


6821 


024026 






6822 


024026 


012721 


104001 


6823 


024032 






6824 


024032 


012721 


004000 


6825 


024036 






6826 


024036 


010221 




682 7 


024040 






6828 


024040 


012/21 


00000 / 


6829 


024044 


000207 





I 



ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
THE DATA RELIABILITY TEST, 



RANCMDi RANWV 
RANWR 
RANWR 
RANWR 
RANW^ 
RANWR 
RANWR 
RANWR 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 
RANRD 



RANRD: 



003360 



I WRITE/VERIFY 

(WRITE. 

(WRITE. 

(WRITE, 

(WRITE. 

(WRITE. 

(WRITE. 

(WRITE, 

(READ, 

(READ. 

(READ. 

(READ 

(READ. 

(READ. 

(READ. 

(READ. 



SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE, 
INPUTS: 



OUTPUTS: 
REGISTERS: 

CALLS: 

LET (Rl). 

LET (Rl)« 
LET RANB : 



R2 

• 0RDR 

• OOATCNT 
RANB * RANS 



(STORE READ REV CMO. 

MOV tRPR.OU 

tSET BRF TO MAX FOR READ RANDOM LENGTHS. 



LET R2 :- RANB Cl.R.Bt &RNUPSC 



LET 


IR1). 


- R2 


I FT 


(R1U 


- 0RANP 


I FT 


(Ml )• 


- #RDF 


t \ I 


CHI )* 


• dOATCNT 


I 1 T 


CHI). 


- R2 


t LI 


( R 1 ) * 


* ORANP 


RTS 


PC 





MOV 


♦OATCNT. 


ADD 


PANS, RAN 


MOV 


RMN8»R2 


BIC 


ORNOPSC , 


(SET RANOOM 9 Of OPERATIONS. 




MOV 


Rr».iRn« 


(RANDOM PATTERN. 




MOV 


*RANP,(.« 


jSTORF READ FWD CMD . 




MOV 


*«DF ARt 


iSET BRF TO MAX TO READ RANOOM 


LFNGTHS. 


MOV 


^DATCNT , 


(SET RANDOM OF' OPERATIONS. 




MOV 


r.\;wi "* * 


(RANDOM PATTERN, 




MOV 


^RANP.vR 



[-: 1 



5 



HARDWARE TESTS MACU1 30(1046) 
CZTSHD.PU 06-APR-84 08:49 

t*50 
6331 

6855 

6854 

6853 

6856 024046 

685? 024046 012721 104005 

6858 024052 004 75/ 024072 

6859 024056 000207 
6840 

6841 
684? 
6845 
6844 
6845 
6846 
684 7 
6848 
6849 
6850 

6851 024060 

6852 024060 012721 104105 
6855 02406" 004757 024072 
6854 024070 00020V 

6855 
6856 
6857 
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TEST 2: DATA RELIABILITY 



SEQ 0160 



RANWR 



SUBROUTINE TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE, 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 

LET (HI)* :- tfWRT 

JSR PC.RANW 
RTS PC 



I STORE WRITE CMD. 

MOV tfWRT.CRl 

{STORE BRF, OF OPERATIONS, PATTERN. 



SUBROUTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



RANWV: LET (Rl)» : 

JSR PC.RANW 
RTS PC 



tfWTV 



I 1 TORE WRITF/VERIFY CMD. 

MOV #UTVr(Rl 

j STORE BRF, « OF OPERATIONS, PATTERN. 



I-"13 



HARDWARE U STS NPO M 501104b) 
C/TSH0,PU Ob APR -84 08:49 

6858 
685* 

6860 
6861 
8862 
686? 
6364 
68b5 

6866 024072 

6867 02407c? 012721 004000 
6868 

686^ 0240 76 

6870 0240 /o 063737 003362 

6371 024104 

6872 024104 013702 005360 

6873 024110 042702 177740 

6874 C24H4 

68 75 024 114 010221 

68 7 6 024116 

68^7 024116 012721 000007 

6878 024122 000207 

6879 

6880 

6881 

6882 024124 

6883 024124 

6884 024124 104401 
6085 
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TEST 2; DATA RELIABILITY. 



SEQ 0161 



003360 



SUBROUTINE TO STORE BRF , it OK OPERATIONS, PATTERN IN COMMAND 

SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANDS, 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 



R2 
RANW: LET CRD* j * ODATCNT 



L 10034: 



LET RANB ;» RANB ♦ RANS 

LET R2 :* RANB CLR.BY ORNOPSC 

LET (Ri). :■ R2 
LET CRD* j« 4RANP 
RTS PC 
.EVEN 
ENOTST 



j SET BRF TO MAX FOR PATTERN GENERATION. 

MOV frOATCNT, 
;RAND0M BRF WILL BE GENERATED FOR EACH P 



ADD 

MOV 

BIC 
SET RANDOM OF OPERATIONS. 

MOV 
RANDOM PATTERN. 

MOV 
RETURN. 



RANS, RAN 

RANB.R2 

4RN0PSC, 

R2.CR1)* 
#RANP,(R 



TRAP 



C$ETST 



r.i.3 



HARDwAR't TESTS MACUl 30U04tO Ob APR 84 Ofl 
CZTSHD.Pli 06^APR 94 08:49 TEST 3 



688b 








t>88 7 








6888 








6889 








6890 








6891 








6892 


024126 






6893 


024126 






6894 








6895 


024126 






6896 


024126 


112737 


OOOOOl 


6897 


024134 






6898 


024134 


105037 


003440 


6899 


024140 






6900 


024140 


012702 


004000 


6901 


024 144 


005302 




6902 


024 Ub 






6903 


024146 


010237 


003356 


6904 


024152 


005137 


003356 


6905 


024156 


004737 


006444 


6906 


024162 


004 737 


0064 70 


6907 


024166 






6908 


024166 


105037 


003452 


6909 


024172 






6910 


024172 






6911 


024172 






6912 


024172 






6913 


024172 


02012 7 


003550 


691m 


024176 


002003 




6915 


024200 


004737 


024046 


6916 


024204 






6917 


024204 


000772 




6918 


024206 






6919 


024206 






6920 


024206 


012711 


17777 7 


6921 


024212 


004 737 


006510 


6922 


024216 






6923 


024216 


012701 


003460 


6924 


024222 






6925 


024222 


005702 




6926 


024224 


001762 




692/ 


024226 






6928 


024226 


105237 


003450 


6929 


024232 


000240 




6930 


024234 


000240 




6931 


024236 


000240 




6932 


024240 


004 7*7 


02515b 


6953 








6954 








6955 








6956 


024244 






0937 


024244 


105037 


005450 


69 58 


024250 


004 75 7 


0064 70 


6959 


024254 






6940 


024254 


012711 


1 7 / 7 1 t 


6941 


024260 


004 737 


006510 



51 PAGE 16-4 
WRIT*- COMPATABTLTTY/WRITE UTILITY. 

.SBTTL TEST 3; WRITE COMPATABILITY/WRITE UTILITY. 

j TEST TO WRITE RECORDS FROM BOT TO EOT. 

\ - - 



SEQ 0162 



T3: 



003441 



BGNTST 

LET RANDOM :B* ifl 
LET EXPBOT :B- 90 
LET R2 :» 4DATCNT 



LET LENMSK 



01 
COMP R2 



JSR PC.SETCH 
JSR PC, St TRW 
LET STAFLG :B» *0 

REPEAT 

WHILE Rl LT &SEQEND DO 



JSR PC.RANWR 
ENDDO 



LET CR1) 



W-ND 



JSR PC.tXALL 
LET Rl t - OCMDSEQ 

UNTIL R2 NE 00 



LET ALLEOT ;B« ALLEOT ♦ <>l 



NOP 
NOP 
NOP 
..SH 



PC.T5WE0T 



LET AILEOT :B* tfO 

JSH PC, St TRW 
LET (Rl) : - #£ND 

JSR PC^LXALL 



I SET THE RANDOM OPERATIONS FLAG 


, 


MOVB 




01.RANDO 


1 CLEAR EXPECT BOT FLAG. 






CLRB 




EXPBOT 


j SET UP THE RECORD LENGTH MASK. 




MOV 




GDATCNT, 


DEC 




R2 


j ALLOW MAXIMUM BUFFER. 






MOV 




R2.LENMS 


COM 




LENMSK 


iCMD 1 - SET CHARACTERISTIC. 






iCMD2 -REWIND 






{CLEAR START FLAG 






CLRB 




STAFLG 


{REPEAT TO EOT. 






50446$: 






; WHILE THERE IS MORE ROOM IN 


SEQ TABLE: 


5044 7$: 






CMP 




Rl.OSEQE 


BGE 




504 50$ 


{STORE A WRITE CMD IN SEQUENCE TABLE. 


BR 




5044 7$ 


50450$! 






t STORE END OF SEQUENCE CODE 1 


[N 


TABLE. 


MOV 




*END,(R1 


{EXECUTE ALL CMOS IN SEQ TBI. 


ON 


UNITS. 


jINIT SEQ TRL POINTER, 






MQV 




OCMDSEQ, 


{REPEAT UNTIL EOT IS REACHED 






TST 




R2 


BEQ 




S044b$ 


{SET ALl UNITS S EOT FLAG 






INCB 




ALLEOT 



{WRITE ONE RECORD BE>OND EOT ON ALL UNIT 
jSO THAI SHORTER RFAD STOP DISTANCE 
iSHAll POSITION HEAD IN CU AN IRu GAP 
{READ Rev !HAT EXTRA REC 10 Rt -POSIT ION 
(CLEAR Ai L UNITS a EOT MAG 

CLRB ALi.EO! 
{STORE Re WIND IN SEQ TBI . 
{STORE END IN SEQ TBI , 

MOV .*LND,vRl 
} EXECUTE REWIND CMD UN ALL UNITS 



3 



HARDWARE TtSTS MACU1 30(104t>) 
CZTSHD.P11 06-APR-84 08:49 



b942 
b943 
6944 
694 ?:> 
694 1> 
694 7 
6946 
6^49 
t>950 
6951. 
695c? 



024264 
024264 
024266 



0242 70 
0242 70 
024270 
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TEST 3i WRITE COMPATABILITY/WRITE UTILITY 



EXIT TST 



SEQ 0163 



104452 
000002 



TRAP 
.WORD 



CiEXlT 
1.10035- 



104401 



L10035: 



.EVEN 
ENDTST 



TRAP 



C*ET 



j • 



1 1 5 



HARDWARE. TESTS MACU1 30(1046) 
CZTSHD.PU 06-APR-64 08:49 



b953 








6954 








6955 








6956 








6957 








6958 








6959 








6^60 


024272 






6961 


024272 






6962 








6963 


024272 






6964 


0242/2 


112737 


000001 003441 


6965 


024300 






6966 


024300 


112737 


000001 003440 


696? 


024306 


004737 


006444 


6968 


024312 


004737 


006470 


6969 


024316 






6970 


024316 


10503 7 


003452 


6971 


0243-V 






697^ 


024 322 


012721 


104001 


6973 


024 326 






6974 


024 326 


012721 


004000 


6975 


024 332 






6976 


024 332 


012721 


077777 


6977 


024336 






6978 


024336 


012721 


000007 


6979 


024342 






6980 


024342 


012711 


177777 


6981 


024346 


004737 


006510 


6982 


024 352 






6983 


024352 


105237 


003450 


6984 


024 356 






6985 


024 356 


012701 


003460 


6986 


024 362 






6987 


024362 


012721 


104401 


6988 


024366 






6989 


024 366 


012721 


004000 


6990 


024372 






6991 


024372 


012721 


07777? 


6992 


024 376 






6993 


C24376 


012721 


000007 


6994 


024402 






6995 


024402 


012711 


177777 


6996 


024406 


004 737 


006510 


6997 


024412 






6998 


024412 


105037 


003450 


6999 








7000 


024416 






7001 


024416 


104432 




7002 


024420 


000002 




7003 








7004 








7005 








7006 


024422 






7007 


024422 






7008 


024422 


104401 
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TEST 3: WRITE COMPATABILITY/WRITE UTILITY 



.SfiTTL TEST 4j READ COMPATABILITY/REAO UTILITY. 

I TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 
j - . 



SEQ 0164 



T4 



DGNTST 

LET RANDOM :B- 01 

LET EXPBOT :B» 01 

JSR PC.SETCH 
JSR PC.SETRW 
LET STAFLG jB« 00 

LET CRD* :- ORDF 

LET CRD* j- ODATCNT 

LET CRD* :■ 077777 

LET CRD* :- ORANP 

LET CRD :- OEND 

JSR PC.EXALL 

LET ALLEOT ;B- ALLEOT » 01 



LET 


Rl j- OCMDSEQ 


LET 


CRD* :' ORDR 


LET 


CRD* :- ODATCNT 


LET 


CRD* :» 077777 


I ET 


CRD* : J ORANP 


LET 


CRD :- OEND 


JSR 
LET 


PC.EXALL 
ALLEOT :B* 00 



L 10036: 



EXIT 

.EVEN 
ENDTST 



TST 



* SET THE RANDOM OPERATIONS FLAG. 

MOVB Ol.RANOO 
j SET EXPECT BOT FLAG. 

MOVB Ol.EXPBO 
tCMD 1 * SET CHARACTERISTIC. 
{CMD2-REWIND. 
I CLEAR START FLAG 

CLRB STAFLG 
•CMU3 - READ FORWARD. 

MOV ORQF ,CR1 
iSET LENGTH TO MAX FOR UNKNOWN LENGTHS. 

MOV ODATCNT, 
;SET RECORD COUNT TO MAX FOR WHOLE TAPE. 

MOV 077777, ( 
{PATTERN - RANDOM. 

MOV ORANP, CR 
5 STORE END OF SEQUENCE CODE IN TABLE. 

MOV 0€ND.(R1 
{EXECUTE ALL CMOS IN SEQ TBL ON ALL UNIT 
{FLAG TO ALLOW ALL UNITS AT EOT TO READ 

INCB ALLEOT 
{TNIT CMD SEQ TBL POINTER. 

MOV OCMDSEQ, 
jCMDl • READ REVERSE. 

MOV ORDR , ( R 1 
SET LENGTH TO MAX FOR UNKNOWN L:NGTHS. 

MOV ODATCNT, 
RECORD COUNT * MAX FOR WHOLE TAPE. 



MOV 



077777. C 



PATTERN - RANDOM. 

HOV ORANP, CR 

STORE END OF SEQUENCE CODE TN TABLE. 

MOV 0END.CR1 
GO EXECUTE READ REV. OF ENTIRE TAPE. 
CLEAR ALL UNITS 5) EOT FLAG 

CLRB ALLEOT 



TRAP 
.WORD 



CifcAlT 
1,10036 



TRAP 



C*ETST 



J13 



105037 

112737 

113737 
004737 



003441 

000001 

002214 
006444 



013737 002216 003462 



HARDWARE TESTS MACU1 30(1046) 
CZTSKD.P11 06 -APR -84 08:49 

7009 
7010 
7011 
7012 
7013 
7014 

7015 024424 

7016 024424 
7017 

7018 024424 

7019 024424 

7020 024430 

7021 024430 

7022 024436 

7023 024436 

7024 024444 

7025 U24450 

7026 024450 

7027 024456 
7020 024456 

7029 024462 

7030 024466 

7031 024472 

7032 024476 

7033 024502 

7034 024506 

7035 024512 

7036 024516 

7037 024516 

7038 024522 

7039 024522 

7040 024526 

7041 024526 

7042 024532 

7043 024532 

7044 024532 

7045 024536 

7046 024540 

7047 024544 

7048 024546 

7049 024546 

7050 024552 

7051 024556 

7052 024562 

7053 02^564 

7054 024564 

7055 024570 

7056 02457? 

7057 024572 

7058 024576 

7059 024576 

7060 024602 

7061 024606 

7062 024610 

7063 024610 

7064 024614 
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TEST 5: EXECUTE OPERATOR 



SELECTED COMMAND SEQUENCE 



SEQ 0165 



012702 
00473? 
004737 
004737 
004737 
004737 
004737 
004737 

005037 

105037 

012701 



021127 
001574 
022711 
001024 

062701 
012137 
022137 
001003 

062701 
000760 



002220 
025134 
025134 
025134 
025134 
025134 
025134 
025134 

003370 

003452 

003460 

177777 
000040 



000002 
0033/2 
003370 



000002 



.SBTTL 

J ♦ 



TEST 5: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
BGNTST 



T5; 



003440 
003445 



005237 003370 



012701 
005337 
001751 

062 701 
000772 



003460 
003372 



000010 



3$ 



n 



2$ 



LET RANDOM ?B= 00 
LET EXPBOT :B» #1 
LET IRE :B« PIRE 



JSR PC.SETCH 
LET CMOSEQ+2 :* 

LET R? :■ 0CMDD 



CHAR 



JSR 


PC 


PTCMDS 


JSR 


PC 


PTCMDS 


JSR 


PC 


PTCMOS 


JSR 


PC 


PTCMDS 


JSR 


PC 


PTCMDS 


jSR 


PC 


PTCMDS 


JSR 


PC 


PTCMDS 



LET JLOOP :- 00 
IET STAFLG :B» 00 
LET Rl :- 0CMDSEQ 
WHILE (Rl) NE 0END DO 



CMP 0JMP,C,(R1) 

BNE 6$ 

LET Rl :» Rl * 02 

MOV (Rl)*»Jl.OC 

CMP (Rl)*, JLOOP 

BNE 15 

LET Rl j" Rl * 02 



BR 3$ 
LET JLOOP 

LET Rl :- 



i* JLOOP 
0CMDSEQ 



01 



DEC Jl.OC 
BEQ 3$ 

LET Rl t* Rl 



#10 



BR 



$ 



j CLEAR RAMDOM MODE FLAG. 

CLRB RANDOM 
I SET EXPECT BOT FLAG. 

MOVB 01.EXPBO 
{MOVE INHIBIT RFC ERROR REPORT FLAG. 

MOVB PIRE* IRE 
;CMD 1 - SET CHARACTERISTIC. 
jMOVE CHAR CODE FROM P T8L TO SEQ TBL . 

MOV CHAR, CMD 
?R2 POINTS TO CMD2 IN SOFT P TABLE. 

MOV *CMDD,R2 
j MOVE CMD 2 FROM P TBL TO SEQ TBL. 
{MOVE CMD 3 FROM P TBL TO SEQ TBL. 
{MOVE CMD 4 FROM P TBL TO SEQ TBL. 
{MOVE CMD 5 FROM P TBL TO SEQ TBL. 
{MOVE CMD 6 FROM P TBL TO SEQ TBL. 
{MOVE CMD 7 FROM P TBL TO SEQ TBL. 
{MOVE END CMD FROM P TBL TO SEQ TBL, 
{CLEAR JMP CMD LOOP COUNT. 

CLR JLOOP 
{CLEAR START '-"LAG 

CLRB STAFLG 
ilNIT SEQUENCE TABLE POINTER. 

MOV OCMOSEQ. 
{WHILE THERE ARE CMOS LEFT IN SEQUENCE I 

50451$: 

CMP (Ri),0fcN 

BEQ 50452$ 
{IS THlb A JUMP CMD? 
{BR If NOT. 
;POINT TO BRF, 

ADD 02. Rl 
{SAVE BRF (LOCATION). 
;HAS LOOP COUNT BE SATISFIED? 
{IF NOT, JMP AGAIN. 
ilF SO, ADJUST SEQ POUNTER 

ADD 02, Rl 
{AND GO 10 NEXT COMMAND. 
{UPDATE THE LOOP COUNT. 

INC JLOOP 
;INIT CMD SEQ TABLE POINTER. 

MOV 0CMDSVU. 
{DECR LOCATION COUNTER. 

{IF THIS IS THE RIGHT LOCATION TO JMP IJ 
sTF NOT, UPDATE SEQ POINTER TO NF* T CMD. 

ADD #10, HI 
j DO XT AGAIN, 



HARDWARE TESTS MACU1 30(1046) 
CZTSHO.PU 06-APR-84 03:49 



7065 


024616 


022711 


000020 


7066 


024622 


001026 




7067 


024624 






7068 


024624 


062701 


000004 


7069 


024630 






7070 


024630 


011137 


003366 


7071 


024634 






7072 


024634 


012727 


000001 


7073 


024640 


OOCOOO 




7074 


024642 


013 7 27 


002116 


7075 


024646 


000000 




7076 


024650 


005367 


177772 


707 7 


024654 


001375 




7078 


024656 


005367 


177 756 


7079 


024662 


001367 




7080 


024664 


005337 


003366 


7081 


024670 


001361 




7082 


024672 






7083 


024672 


062701 


000004 


7084 


024676 


000715 




7085 


024 700 


004737 


007452 


7086 


024 704 






70J7 


024 704 






7088 


024 704 


D23737 


003340 003342 


7089 


024712 


002103 




7090 


024714 


004737 


007344 


7091 


024 720 


004737 


007004 


7092 


024724 






7093 


024 724 


023727 


003346 .100017 


7094 


024 732 


001002 




7095 


024 734 


004 737 


015776 


7096 


024740 






709 7 


024740 






7098 


024 740 


004 737 


016060 


7099 


024744 






7100 


024 744 


012702 


OOOOOl 


7101 


024 750 


004737 


015452 


7102 


024 754 






7103 


024 754 






^104 


024 754 


026527 


002532 177777 


7105 


024 762 


001426 




7106 


024764 






7107 


. 24 764 


032737 


000400 003346 


7108 


024772 


001406 




7109 


024774 






7110 


024 7 74 


032765 


000002 003426 


7111 


025002 


001001 




7112 


025004 






7113 


025004 


005002 




7114 


025006 






7115 


025006 






7116 


025006 






7117 


025006 


0004 1 1 




7118 


025010 






7U9 


025010 






7120 


025010 


032765 


OOOOOl 003426 
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OPERATOR SELECTED COMMAND 


SEQUENCE . 






SEQ 0166 


CMP ODLY.C.(Rl) 


j DELAY? 








BNE 4 $ 


jBR IF NOT. 








LET Rl :» Rl ♦ 04 


jRl - LOCATION OF 


N 


COUNT . 
ADD 


tf'I.Rl 


LET TIME2 i* (Rl; 


;SAVE N COUNT. 




MOV 


f^DpTIM 


DELAY 1 


{GO TO SUPER -WAIT 


1 


MSEC. 

MQV 

.WORD 

MOV 

.WORD 

DEC 

RNE 

DEC 

BNE 


#l,i"PO* 



L$DLY,(P 



-6(PC) 

.-4 

-22CPC) 

. -20 



DEC TIME2 
BNE 7$ 
LET Rl :« Rl 



04 



4$; 



BR 3$ 

JSR PC .SETUP 

WHILE NCNT LT NCNTl DO 



JSR PC.CMDAC 
JSR PC.EXSUB 
IF CMDWRD EQ OGES THEN 



POINT TO NEXT CMU . 



ADD 



44, Rl 



GO CHECK NEXT CMD, 
CD SETUP THE COMMAND BLOCK. 
WHILE THERE ARE RECORDS REMAINING: 
50453$: 

CMP .iCNT.NCN 
BGE 50454$ 
;STORE CMD ASCII IN ERROR MSG. 
jISSUE CMD TO ALL .AWAIT INTS. CHECK STATU 
{IF CMD IS GET STATUS THEN: 

CMP CMDWRD , 
BNE 50455$ 
{PRINT EXTENOED STATUS REGISTERS. 



JSR PC.PRXST 
ENOIF 

JSR PC.CKHAE 
LET R2 :« 01 

JSR PC FTRS T U 

WHILE DEWDLCR5) NE OEND DO {WHILE THERE ARE MORE UNITS - 

50456$: 

CMP 
BEQ 
IF W10D.C0 SETIN CMDWRD THEN {IF CMD IS REVERSE THEN: 

BIT 
HEQ 



50455$: 
{CHECK HALT AFTER EACH CMD FLAG. 
{SET ALL UNITS AT BOT/EOT. 

MOV 
{FIND FIRST UNIT. 



#1, R2 



IF 0X0, ROT NOTSETIN E0TFLGCR5) THEN 

LET R2 := 00 

END IF 
ELSE 



DEVTBL (R 
50457$ 

oMOD.CO. 
50460$ 



{IF NOT AT BOT THEN: 

BIT 0X0. 80 r, 
BNE 30461$ 
{CLEAR EOT 'BOT Ft AG, 
CLR R2 



504bl$: 
{ELSE IF CMD IS NOT REVERSE: 

BR r >04h.M 
50460$ : 
IF 0X0. EOT NOTSETIN EUTFLGCR5) OR 0CMD.CU NOTSETIN CMDWRD THEN 

BIT 0X0. EOT, 



1.13 



HARDWARE U.STS MACU1 30(10460 
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OPERATOR 



SELECTED COMMAND SEQUENCE. 



SEQ 0167 



7121 


025016 


001404 




7122 


025020 


032737 


000001 003346 


712? 


025026 


001001 




7124 


025030 






7125 








7126 


025030 






7127 


025030 


005002 




7128 


025032 






7129 


025032 






7130 


025032 






7131 


025032 






7132 


025032 


004 737 


015520 


7133 


025036 






7 J 34 


025036 


000746 




7135 


025040 






7136 


025040 






7137 


025040 


020227 


000001 


71.38 


025044 


001016 




7139 


025046 






7140 


025046 


013737 


003340 003342 


7141 


025054 


005237 


003342 


7142 


025060 






7143 


025060 


105237 


003450 


7144 


025064 






7145 


025064 


023727 


003354 000002 


7146 


025072 


001002 




7147 


025074 


004 7 J 7 


025156 


7148 


025100 






7149 


025100 






7150 


025100 






7151 


025100 


000402 




7152 


025102 






7153 


025102 






7154 


025102 


105037 


003450 


7155 


025106 






7156 


025106 






7157 


025106 






7158 


025106 


005237 


003340 


7159 


025112 






7160 


025112 


013737 


003346 003352 


7161 


025120 






7162 


025120 


000671 




7163 


025122 






7164 


025122 


00473? 


014402 


7165 








7166 


025126 






716/ 


025126 


000601 




7168 


025130 






7169 








7170 


025130 






71/1 


025130 


104432 




7172 


025132 


000130 




7 1 7 5 








7174 








71/5 









LET R2 :» 00 

ENOTF 
ENDIF 

JSR PC.NEXTU 

ENDDO 

IF R2 EQ 01 THEN 

LET NCNT1 : * NCNT * 01 

LET ALLF.OT jB* ALLEOT ♦ 
IF CMDLG EQ 02 THEN 



JSR PC.T5WEQT 
ENDIF 

ELSE 



BEQ 50463$ 
BIT frCMD.CO, 
BNE 50464$ 
50463$: 

j IF NOT AT EOT OR NOT A MOTION CHO THEN: 
;CLEAR EOT/BOT FLAG. 



CLR 



R2 



jFIND NEXT UNIT 



50464$ 
50462$ 



BR 



50456$ 



50457$: 

{IF ALL UNIT ARE AT EOT/BOT THEN: 

CMP R2,#l 
BNE 50465$ 

;FORCE TERMINATION OF COMMAND. 

MOV NCNT.NCN 
INC NCNT1 
#1 {FLAG ALL UNITS AT EOT/BOT TO ALLOW VER 

INCB ALLF.OT 

sWHEN WRITING IS CURRENT COMMAND 

CMP CMDLG, #2 
BNE 50466$ 

j GO WRITE/READ REV ONE RECORD BEYOND cOT 

50466$: 



LET ALLEOT :B a 00 {WHEN NOT ALL oJEOT 
ENDIF 

LET NCNT : ■■ NCNT • i>\ 
LET PCMDWD i •> CMDWRD 
ENDDO 

JSR PC.VFKDAT 

ENDDO 



50465$ 
CLEAR FLAG 



50467$ 
{UPDATE RECORD COUNT, 



50467$ 
ALLEOT 

NCNT 
CMDURD.P 

50453$ 

50454$: 
; I* LAST CMD WAS A WRITE VERIFY, THEN GO 
jVERIFi THE LAST N RECORDS OF DATA. 



BR 
CLRB 

INC 
{SAVE PREVIOUS COMMAND WORD. 

MOV 

BR 



50452$: 



BR 



50451$ 



EXIT 



TST 



TRAP CJt'XIT 
.WORD 1.1003:-. 



7176 



HARDWARE USTS MACU1 30(104b) 
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7177 
7176 
V170 

7180 
7181 
718? 
7183 
^184 
7185 

7186 025134 

7187 025154 012203 
7188 
7169 
7190 

7191 025142 016321 003562 
7192 
7193 
7194 
7195 
7196 
719 7 
7198 



06-APR-84 08 
TEST b 
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EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 



025136 005303 

025140 006303 

025142 

025142 016321 

025146 

02514b 012221 

025150 

025150 012221 

025152 

025152 012221 

025154 000207 



SUBROUTINE TO MOVE A COMMAND FROM THE SOFTWARE P TABLE TO 

THE COMMAND SEQUENCE TABLE. 

INPUTSt 

OUTPUTS: 

REGISTERS: 



R2 - POINTER TO SOFT "P" TABLE 
R3. 



SEQ 0168 



CALLS: 












PTCMDS: LET R3 := 


CR2)f - HI SHIFT *1 


$R3 » 


COMMAND TABLE 


INDEX. 
MOV 
DEC 
ASL 


CR2)*,R3 

R3 

R3 


LET (Hl)» 


:= CMDTBL.CR3) 


: MOVE 


COMMAND WORD. 


MOV 


CMDTBLCR 


LET CRD* 


:-= CR2)* 


:MOVE 


* OF BYTES. 


MOV 


(R2)*,(R 


LET (Rl)f 


:* (R2")f 


j MOVE 


i> OF OPERATION 


? . 

MOV 


C R2 ) ♦ . ( R 


LET CR1)* 


:- (R2)* 


{MOVE 


PATTERN CODE. 


MOV 


( R2 ) ♦ , ( R 


RTS PC 













N13 



HARDWARE TESTS MACU1 30(1046) 
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71^9 
7 J00 
7201 
7202 
7203 
7204 
7205 
7206 
7207 
7208 
7209 
7210 
7211 
7212 
7213 
7214 
7215 
7216 
7217 
72)3 
7219 
7220 
7221 
7222 
7223 
7224 

7226 



025156 
025160 
025162 
025166 

025172 
025172 

025200 
025200 
025206 
025206 
025214 
025214 
025222 
025230 
025230 
025236 
025236 
025244 
025250 
025254 
025260 



000240 
000240 
004 73 7 
004737 



013737 
012737 
012737 

013737 

042737 



00 7004 
016060 



003346 

104401 

000004 

003346 
004000 



013737 002310 



7227 
7228 
7229 
7230 
7251 
7232 
7233 
7234 
7235 
7236 025264 



013737 
004737 
00473 7 
00473/ 
000207 



003336 
007344 
007004 
016060 



025262 
025262 

025262 



104401 
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OPERATOR 



SELECTED COMMAND SEQUENCE 



SUBROUTINE TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS : CMDAC , EXSUB , CKHAE 



003352 
003346 
003354 

002310 

002310 

003350 
002312 



T5WE0T; NOP 
NOP 

JSR f-C, EXSUB 
JSR PC, CKHAE 



LET PCMDWD :* CMDWRD 
LET CMDWRD := ttRDR 
LET CMDLG := V>4 



L10037 5 



{WRITE ONE RECORD BEYOND EOT 
;50 THAT READ SHORTER STOP DISTANCE 
; SHALL POSITION HEAD IN CLEAN IRG GAP 
{REPOSITION TAPE 

MOV 
{BEFORE EXTRA RECORD 

MOV 
;BY READING REVERSE 

MOV 
LET CMDPKT := CMDWRD CLR.BY tfBRF.C 

MOV 

r rc 

LET CMDSAV := CMDPKT ; THAT RECORD TO ALLOW 

MOV 

LET CMDPKT >CP.ADL : » DATARD ;NEXT COMMAND IN THE 

MOV 

JSR PC, CMDAC {TABLE TO BC EXECUTED 

JSR PC, EXSUB 

JSR PC, CKHAE 

RTS PC 



.EVEN 
ENDTST 



TRAP 



SEQ 0169 



CMDWRD, P 

tfRDR , CMD 

*4,CMDI.G 

CMDWRD, C 
OBRF.C.C 

CMDPKT. C 

DATARD, C 



C*ETST 



ENDMOD 



HM 



PARAMMER CODING MAC Ml 50U04M 

C/TSHO.PU Q6-APR t*4 06;49 



7257 










7238 










723^ 










7240 










•24 I 


0252b4 








7242 










724? 










7244 










724 5 










7246 










724 : 










'V4* 










724'* 










7250 










•*25 I 










7252 


025264 








72S5 


025264 


000024 






7254 


025266 








7255 










7256 


025266 








7257 


025266 


000031 






7256 


025270 


025312 






725 l > 


0252 72 


160002 






72t>0 


025274 


17 7564 






726 J 


0252 76 








7262 


C252 76 


001032 






7263 


025300 


025327 






7264 


025302 


0007 7 7 






7265 


025304 


000060 






7 266 


025306 


000776 






7267 










726ft 


025310 








?26<> 


0PS510 


013004 






7 j :o 










'V71 












025312 


051524 


05112 3 


04 04 4 




025327 


12b 


041505 


047524 


72 /2 










*v '* 










72.' . 


02 r »^Vi 








7*76 


025336 









Of* APR -84 Ofl-51 PAG* 1/2 
TEST 5} EXECUTE OPERATOR SELECTED COMMAND SF.QUfr.NCt" 

. TITl.L PARAMETER CODING 

.SETTl HARDWARE PARAMUER COOING SECTION 
BGNNJD 



I • » 

THE HARDUAPE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARC USED BY THE SUPERVISOR TO BUILD P T ABIES. TmI 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUC T IONS BUT ARE 
INTERPRETED Bl THE SUPERVISOR V, DATA STRUCTURES. THf 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPFRATOR, 



BGNHRD 



I IHARO: j 



UPRMA 



GPRMD 



TS4ADR,0,U, 1KHHV. I'/'-M.fES 



TS4VCT.2.0, .V/,60, ;.Vi B ftS 



EXIT HRO 



M 1ST 

fS4AUK: .ASCI/ 
TS4VC j .ASCI/ 
,1 1ST 
.EVEN 



HI x 
TssR AUURISS 

/VECTOR* 
Bfcx 



ENOHRD 



SEQ 01 70 



.WORD I 10040 I *n 



.WORD 

.WORD 
.WORD 
.WORD 

.WORD 
.WORD 

.WORD 
.WORD 
.WORD 



It CODE 
TS4ADR 
TILOLIM 
TlMlirM 

TICODfr 

TS4VCT 

rit.ot.iM 

TSHll IM 



.WORD TJCUUL 



LlOQAOi 



.tVtN 



C14 



PAR AM* U R CODING 


MACl 11 


301 1046") 06 APR 


CiTT^HD. 

« >, » » 


^11 06 APR 84 08} 49 


SOFT WAR t 


72 » 

7280 








7281 








7282 








/283 








":w 








;V8S 








7286 








■V8; 








728* 


025 5 3* 






7289 


025536 


000501 




7290 


025340 






7291 








72V 








7293 


025340 






\"?94 


025340 


000130 




7295 


0, 5342 


026102 




7296 


025344 


00000 1 




7297 


025346 






'298 


025346 


000130 




7299 


025350 


026121 




"300 


025352 


000400 




;3oi 


025354 






7 502 


025354 


001130 




7 303 


025356 


026150 




7 304 


025360 


000001 




7 305 


025362 






7306 


025 362 


001130 




7 30/ 


02536* 


0261/4 




7 30ft 


025 566 


000400 




7309 


025370 






7310 


0253*0 


002130 




7311 


025372 


026225 




7312 


025374 


000001 




"Ml? 


02*376 






7514 


0253/6 


004024 




7 5 IS 


02540U 






7316 


025400 


002130 




7517 


025402 


026246 




7318 


025404 


000400 




7 319 


025406 






7 320 


025406 


003150 




7321 


025410 


0262 i 6 




7 5?.; 


025412 


000001 




7 32 3 


025414 






7 524 


025414 


005130 




7 525 


025416 


0263^1 




7526 


02%420 


000400 




7 5;:/ 


025422 






7 328 


025422 


004130 




7 329 


025424 


026 352 




.'3 30 


025426 


000001 




7331 


0254 30 






733* 


0254 40 


12? 044 





84 08 j 51 
PARAMETER 



PAGE W3 

coding miction 



SEQ 01/1 



.SBTTL SOFTWARE PARAMETER CODING SECTION 



THE. SO r TUARE PARAMETER CODING SECTION CONTAINS MACROS 
THAI ARE USED BY THE SUPERVISOR TO BUILD P TABLES THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARf 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
UITH THE OPERATOR. 



BGNSF T 
I ISOFT: : 

GPRMI. CLRM.O.L.ttS 

GPRML RRVM, 0,400, YES 

GPRML HAEM.2,1 , »ES 

GPRML RCVfcRM , 2 , 400 , l F S 

GPRML IRECM,4,l,fES 

XHRT NtXTSP 

GPRML BADTM.4,400, tEs 

NLXlSPi GPRML DINTM,6,1,US 

(.PHMl 1REM, 6,400, US 

GPRML CHGM,10,l,ttS 

XPERE LNDSPl 



WORD I 1004 M.5S 



WORD 
WORD 
WORD 


MCOUE 
CLRM 

1 


WORD 
WORD 
WORD 


MCODE 

RRVM 

400 


WORD 

WORD 
WORD 


TICOOE 
HARM 

1 


WORD 
WORD 
WORD 


TiCOOE 
RCVERM 
400 


WORD 
LORD 
WORD 


T tCOOE 
IRECM 

1 


WORD 


MCODE 


WORD 
WORD 
WORD 


T J CODE 

BADTM 

400 


WORD 
WORD 
WORD 


MCODh 
DINTM 

I 


WORD 
uORD 

WORD 


1 ICODE 
I MEM 

400 


WORD 

wORD 


M221H 

CH'O.M 

J 



• WJRO UCOOfc 



m 



PARANA an CODlNi 


MAC 1 1 1 


501 1046") 


C/TSHO. 


PI I Ob APR 84 08 j 49 




7 555 


0/:543? 






7554 


025452 


006032 




755:. 


0?5454 


026376 




7556 


0?54 36 


0003 7 7 




7557 


025440 


000000 




7 538 


025442 


000777 




733* 


025444 






"540 


025*44 


007052 




754 1 


0775446 


026423 




734? 


0?5450 


000037 




734 3 


02545? 


000001 




7 544 


025454 


000033 




7545 


02545b 






7346 


025456 


010052 




7 34 r 


025460 


0264 31 




7348 


025462 


177777 




7549 


025464 


000001 




7350 


025466 


004000 




7351 


0254 70 






735? 


0254 70 


01105? 




7353 


0254 72 


02644 3 




7354 


0254 74 


177777 




-*355 


025476 


000001 




7356 


025500 


077777 




7 357 


025502 






7358 


025502 


012052 




7359 


025504 


026463 




7360 


025506 


000017 




7361 


025510 


000000 




7362 


025512 


000010 




7363 


025514 






7 364 


025514 


013052 




7 365 


025516 


0264 76 




7 366 


025520 


0000 i 7 




7 367 


025522 


000001 




7 368 


025524 


000033 




7 369 


025526 






7370 


C25526 


014052 




7371 


025530 


026431 




'3 7,-' 


025532 


177777 




7 373 


02555^ 


000001 




7374 


025536 


004000 




7 3 75 


02J540 






7 3/6 


025540 


015052 




73/7 


025542 


02644 3 




7 3/8 


025544 


177777 




7379 


025546 


oooooi 




7 380 


025550 


077777 




7381 


025552 






7 58? 


02555? 


01605? 




7 58 5 


025554 


026463 




7 384 


025556 


000017 




7385 


025560 


000000 




7^86 


025562 


000010 




73m; 


025564 






73m* 


QJ&564 


017052 





Qb -APR 84 08:51 
SOFT MARK PARAMETER 



PAJA 1'4 

CODING 



it CTION 



GPRMD CHARM ,14 , , 37 7 , , 7 7 7 , YF.S 



GPRMD CMD2MJ6,D,37, 1,33, YES 



GPRMD BPCRM, ?0,D, -1 , 1 .DATCNT, YES 



GPRMD N^MBM,22,0, 1,1, 77/7/, YES 



GPRMD PAT TM.24, 0.1 7.0,10, TfcS 



GPRMD CMD3M, 26, 0,37, 1,33, YF.S 



GPRMD BPCRM, 30, U, 1, l,DATCNT,Yt5 



GPRMD NUMBM,32,D, 1 , 1 , 7 7 / 7 /, YES 



GPRMD PA TTM, 34,0.17,0,10, YES 



GPRMD CMU4M.it, U,3iM % 53 t its 





SfcQ 01/2 


WORD 


TfCODE 


WORD 


CHARM 


WORD 


377 


WORD 


TM.OLIM 


WORD 


TIHIl IM 


WORD 


ncooE 


WORD 


CMD2M 


WORD 


37 


WORD 


ULOLIM 


WORD 


r*Hi:„iM 


WORD 


MCODL 


WORD 


BPCRM 


WORD 


-1 


WORD 


TJLOl.iM 


WORD 


T*HlL.IM 


WORD 


MCOD* 


WORD 


NUMBM 


WORD 


•1 


WORD 


TILOLIM 


WORD 


1 iHIl.IM 


WORD 


MCODE 


WORD 


PATTM 


WORD 


17 


WORD 


TiLCt.IM 


WORD 


TiHll IM 


WORD 


TICOOE 


WORD 


CM03M 


WORD 


3 7 


WORD 


TIL0L.1M 


WORD 


T*HILIM 


WORD 


TSCOOE 


WORD 


BPCRM 


WORD 


- 1 


WORD 


TILOLIM 


WORD 


T$Hll IM 


WORD 


TICOOE 


WORD 


NUMBM 


WORD 


1 


WORD 


T$l.Oi.IM 


WORD 


r$Hii im 


WORD 


Mcom 


WORD 


PATTM 


WORD 


1 ■" 


WORD 


T $L 01 I M 


WORD 


TlHll !M 



.WORD T * COOL 



1.4 



PARAMETER CODING MACU1 30(1046) 

CZTSHD.P11 C v o APP-64 08:49 



06-APR-84 08:51 
SOFTWARE PARAMETER 



PAGE 175 
CODING SECTION 



7589 


025566 


026504 


7590 


025570 


00003/ 


7591 


025572 


000001 


7392 


0255/4 


000033 


7393 


025576 




7394 


0255 76 


020052 


73^5 


02* -600 


026431 


7396 


025602 


177777 


7397 


025604 


000001 


7398 


025606 


004000 


7399 


025610 




7400 


025610 


021052 


7401 


025612 


02644 3 


7402 


025614 


177777 


7403 


025616 


000001 


7404 


025620 


077777 


7405 


025622 




7406 


025622 


022052 


7407 


025624 


026463 


7408 


025626 


000017 


7409 


C25630 


OOOOOO 


7410 


025632 


000010 


7411 


025634 




741? 


025634 


023052 


7413 


025636 


026512 


7414 


025640 


000037 


7415 


025642 


000001 


7416 


025644 


000033 


7417 


025646 




7418 


025646 


024052 


7419 


025650 


0264 31 


7420 


025652 


177777 


7421 


025654 


000001 


7422 


025656 


004000 


7423 


025660 




7424 


025660 


02505? 


7425 


025662 


02644 3 


74 26 


025664 


177777 


7427 


025666 


000001 


7428 


0256 70 


077777 


7429 


025672 




7430 


0256 72 


026052 


74 31 


025674 


026463 


7432 


025676 


000017 


74 33 


025700 


OOOOOO 


74 34 


025702 


000010 


74 35 


025704 




74 36 


025704 


002004 


7437 


025706 




74 38 


025706 


075004 


74 59 


025710 




7440 


025710 


02 705? 


744 1 


025 71? 


026520 


7442 


025 714 


00003/ 


744 *> 


025 716 


000001 


7444 


025720 


000033 



GPRMO BPCRM , 40 , D , - 1 , 1 , DATCNT , YES 



GPRMO NUMBM, 42, 0,-1,1,77777^5 



GPRMD PATTM,44,D,17,O,10,Y£S 



GPRMD CMD5M, 46, 0,37, 1,33, YES 



GPRMO BPCRM, 50, D, • 1 , 1 >DATCNT , YES 



GPRMO NUMBM, 52.0, ■ 1 . I . 7 77 77 , YfcS 



GPRMD PAT TM.54,0, 17,0.10, YES 



»tR l-ND'iP? 

tNOSPl: x»'t'« t.NDSP 

ENDSP2; GPRMD CMD6M.56.0.3:. 1.53.TES 



SEQ 0173 



WORD 


CMD4M 


.WORD 


3/ 


WORD 


TSLOLIM 


.WORD 


TiHILIM 


.WORD 


TSCODE 


.WORD 


BPCRM 


.WORD 


-1 


.WORD 


TK.Ol.IM 


.WORD 


TSHTLIM 


.WORD 


TSCODE 


.WORD 


NUMBM 


.WORD 


-1 


.WORO 


TSLOLI'1 


.WORD 


TSHll IM 


.WORD 


r scoot: 


.WORD 


PATTM 


. WORD 


17 


.WORD 


TSLOLIM 


.WORD 


TSHILIM 


. WC^O 


T scoot: 


.WORD 


CMD5M 


. WORD 


37 


.WORD 


TSLOLIM 


.WORD 


TSHILIM 


.WORD 


TSCODE 


.WORD 


BPCRM 


.WORD 


•1 


.WORD 


TSLOLIM 


.WORD 


TSHILIM 


.WORD 


TSCODE 


.WORD 


NUMBM 


.WORD 


■ 1 


.WORD 


TSLOLIM 


.WORD 


TSHILIM 


.WORD 


TSCODE 


.WORD 


PATTM 


.WORD 


1-* 


.WORO 


TSLOLIM 


.WORD 


TSHlt IM 


. WORD 


T SCODt 


, WORD 


T SCODt 


. WORD 


T SCOOt. 


.WORO 


CMDt.N 


, WORD 


„« : 


.WORD 


T Si Oi I M 


.WORD 


TSHILIM 



14 



PARAMtTfR CODING MAC ill 30(1046) 06 APR 84 08t5i PAGE 1/6 
WTSHD.P11 06 -APR -84 08:49 SOFTWARE PARAMETER CODINf- SECTION 



744 5 


U25/22 




7446 


025722 


030052 


744 7 


025724 


026431 


7446 


025726 


177777 


7449 


025730 


000001 


74 50 


025732 


004000 


7451 


025734 




7452 


025 734 


031052 


7453 


025736 


026443 


7454 


025 740 


1777/7 


7455 


02J742 


000001 


7456 


025744 


077777 


745,' 


025746 




7458 


025746 


032052 


7459 


025750 


026463 


7460 


025752 


00001 7 


7461 


025754 


OOOOOO 


7462 


025756 


000010 


7463 


025760 




7464 


025760 


033052 


7465 


025762 


026526 


7466 


025764 


000037 


746 7 


025 766 


000001 


7468 


0257 70 


00* 033 


7469 


025772 




74/0 


0257 72 


034052 


7471 


025774 


026431 


74 72 


025776 


177777 


74 73 


026000 


000001 


7474 


026002 


00400^ 


7475 


026004 




7476 


026004 


035C52 


747 7 


026006 


02644 3 


7478 


026010 


177777 


74 79 


026012 


000001 


74 80 


026014 


077777 


7481 


026016 




748c? 


026016 


036052 


7485 


026020 


026463 


7484 


026022 


000017 


7485 


026024 


COOOOO 


7486 


026026 


000010 


743 7 


026030 




7488 


026030 


037052 


7489 


026032 


026534 


7490 


026034 


00003 7 


7491 


026036 


000001 


7492 


026040 


000033 


7493 


026042 




7494 


026042 


040052 


7495 


026044 


026431 


7496 


026046 


177/77 


749/ 


026050 


000001 


7498 


0?f>O c ^ 


00^ 000 


7499 


026054 




7500 


026054 


041052 



GPRMD BPCRM, 60, D, -1 , 1 ,DATCNT , YES 



GPRMD NUMBM,62,D, -1 , 1 . 77 777, YES 



GPRMD PAT TM, 64, 0,17,0,10, YES 



GPRMD CMD7M, 66, 0,37, 1.33. rF,S 



GPRMD BPCRM, 70, D, 1 , 1 .DATCNT , tfc'S 



GPRMD NUMOM, /2,D, -1,1, 77777. ItS 



GPRMD PA TTM, 74,0,1 7,0,lO,iES 



GPRMD CMD8M, /6,0. 3 7 . 1 , 33 , >ES 



GPRMU BPCRM, 100,0, l.i.DATCM , ?ES 



GPRMD NUMBM , 102 , , • I , X , 7 7 7 7 7 , M S 





SfcQ 0174 


WORD 


TtCODE 


WORD 


BPCRM 


WORD 


-1 


WORD 


TU.0L1M 


WORD 


T$HILIM 


WORD 


TiCOOF. 


WORD 


NUM8M 


WORD 


-1 


WORD 


MLOlIM 


WORD 


T5HII.IM 


WORD 


UCODE 


WORD 


PATTM 


UORO 


17 


WORD 


TSLOl.IM 


WORD 


TtHll.IM 


WORD 


Mcooe: 


WORD 


CMD7M 


WORD 


37 


UORD 


TilOLIM 


WORD 


T*HILIM 


UORD 


TICO0B 


WORD 


BPCRM 


WORD 


-1 


UORD 


ULOLIM 


WORD 


TiHUIN 


WORD 


UCODfi 


WORD 


NUM8M 


WORD 


-1 


UORD 


TJLOLIM 


UORD 


T$HILIM 


UORD 


UCODt. 


UORD 


PATTM 


UORD 


1" 


WORD 


TIl.Ol.IM 


UORD 


TJHII TM 


„'090 


Ticooe: 


UORD 


CM08M 


Wci\D 


3.' 


UORD 


TlLOl.lM 


WORD 


TJHlLlM 


UORD 


TJC JD.- 


WORD 


tfPCRM 


UJRO 


1 


UORD 


it-.:\ i Ki 


WORD 


Uh\\ 1M 



«JRD 



nc-JOb 



( \ "1 4 



PARAMt TF.R CODING MACUl 30(1046) 0o-APR-84 08;51 PAGE \lt 
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V501 


026056 


02644 3 


7502 


026060 


177777 


7503 


026062 


000001 


7504 


026064 


077777 


7505 


026066 




750b 


026066 


042052 


750 7 


026070 


026463 


■*508 


0260 72 


000017 


"'50^ 


026074 


000000 


7510 


026076 


000010 


7511 


026100 




7512 


026100 




751.? 


026100 


176004 



GPRMD PATTM, 104,0, l/»0,10» fES 



ENDSP; 





Se.Q 0175 


.WORD 


NUMBM 


.WORD 


-1 


.WORD 


Til.OL.IM 


.WORD 


TIHII.IM 


.WORD 


TiCODE 


.WORD 


PATTM 


.WORD 


1/ 


.WORD 


TJl.Ol.IM 


.UORD 


TSHII.IM 



XF'tR 



JMPMSG 



.WORD TiCODE 



1-1 1 4 



PARANl Il-R COlUNli 



cztshd.pu 



06 -APR 84 



7M4 
7515 



.'516 
75 17 
7513 
7519 

7520 

7522 



7523 
7524 
7525 
7526 
752/ 
7528 
7529 
7530 
7531 
7532 
7533 
7534 
7535 
753b 
7537 
7558 
7539 
V»40 
754 1 

7542 



026102 
026121 
026150 
026174 
026225 
026246 
026276 
026321 
026352 
0263/6 
026423 
02t43l. 
026445 
026463 



0264 74 
0264 74 
0264/4 



0264 76 
026504 
026512 
026520 
026526 
026534 



026542 
026542 



026742 

026/42 
026744 
026746 
026746 



046103 

122 

040510 

051120 

111 

040502 

044504 

111 

044103 

044103 

105 

102 

04? 

120 

0264 74 



023004 



046503 
046503 
046503 
046503 
046503 
046503 



026542 000100 



026 756 
000004 



MrtCUl 
OH: 49 



040505 
051505 
052114 
047111 
044116 
020104 
040523 
044116 
047101 
051101 
042115 
043122 
047440 
052101 



027504 
02 7504 
027504 
027504 
027504 
027504 



30(1046) Ob -APR 



020122 
052105 
040440 
020124 
041111 
040524 
046102 
041111 
042507 
041501 
031057 
041440 
020106 
042524 



84 Oft: 51 
PARAMETER 



PAG*. 1/8 

COOING SECTION 



SEQ 01/6 



000063 
000064 
000065 
000066 
00006 .' 
000070 



CLRM 

RRVM 

HAEM 

RCVERM: 

IRECM: 

BADTM: 

DIK'TM; 

IREM: 

CK>M. 

CHARM; 

CMD2M: 

BPCRM: 

NlfMBM: 

PATTM: 



JMPHSGs 



CM03M 
CM04M 
CM05M 
CMD6M 
CM07M 
CM08M 



L 10041 



.Nl.IST BEX 

.ASCIZ /CLEAR COUNTERS/ 

.ASCI/ /RESET RANDOM VARIABLES/ 

.ASCI/ /HALT AFTER EACH CMO/ 

.ASCIZ /PRINT RECOVERABLE ERRORS/ 

.ASCIZ /INHIBIT RECOVERY/ 

.ASCIZ /BAD TAPE SPOT DETFCTION/ 

.ASCIZ /DISABLE INTERRUPTS/ 

.ASCIZ /INHIBIT RFC ERROH REPORT/ 

.ASCIZ /CHANGE CMD SFQUENCF/ 

.ASCIZ /CHARACTERISTICS CODE/ 

.ASCIZ "CMO/2" 

.ASCIZ /BRF COUNT/ 

.ASCIZ /P OF OPERATIONS/ 

.ASCIZ /PATTERN/ 

.LIST BEX 

.EVEN 



EXIT SFT 



WORD 



tscode 



.NIIST 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.LIST 

.EVEN 

ENDSFT 



BEX 

"CMD/3" 
"CMD/4' 
"CMD/5* 
"CMO/6" 
"CMD/ /" 

■'CMD/a 1 ' 

BEX 



EVEN 



PATCH AREA 
PATCH: : .HL.KW 64. 



A", TAD 



LJLA'iT; j 



A VEN 

.UORO Tit HM 

.WORD TltiXJC 



ENDMUD 



14 
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CZTSHn.PU 06-APR-S4 08;49 HARD CODED P-TBL 



SKQ 017/ 



754 3 
7544 

7S/1S 

7546 
754 7 
7b4o 
7549 
7550 
7551 
7552 
7553 
7554 
7555 
7556 
755T 
7558 
75V> 
7560 



026746 
026746 

026746 
026750 
026752 
026752 
026 .'54 
026756 
026756 
02b7bb 



000000 
000002 

1 7252c 
000224 



000001 



.SBTTL HARD CODED P-TBL 

iDIAG IS PRE -PARAMETERIZED PER TBL 
, • - 

BGNSETUP J 
BGNPTAB 



L10042: 



L 10044; 



UORD 
WORD L 10044 



172522 
224 
ENDPTAB 

ENDSETUP 



.END 
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CZTSHD.P11 06 APR -94 OS; 49 


SYMBOL 


TABLE 
















5EQ 0178 


ACK.C - 


100000 


G 


BRFCNT 


003344 


G 


CNTEND- 


003324 


CIPNTX- 


000015 




ERRREC 


003415 


G 




ADR 


000020 


G 


BRF.C - 


004000 


G 


CNTLEN- 


000550 G 


CSQIO - 


000377 




F.RS 


100411 


G 




At. 1. EOT 


003450 


G 


BTADDR 


002544 


G 


CODFLM 


003772 G 


CIRDBU- 


000007 




ERSFLG 


003451 


G 




ASSEMB* 


OOOOIO 




BTMSGl 


013372 




COUNTE- 


050404 


OREFG- 


00004 7 




EVL 


000004 


G 




ATTMM 


004335 


G 


BTMSG2 


013*457 




CP.AUH- 


000004 G 


CiRESF- 


000033 




EXALL 


006510 


G 




AUDRPM 


00464 5 


G 


BTMSG3 


013527 




CP.AOL- 


000002 G 


OREV1- 


Ov . 03 




EXARTN 


007002 






AUTODM 


021522 




BTPT 


003436 


G 


CP.CMD- 


000000 G 


C$RFLA» 


OOU021 




EXCRTN 


010634 






BADTM 


026246 




BTRPT 


016544 




CP.CNT* 


000006 G 


CIRPT - 


000025 




EXCUTE 


010326 


G 




BADTSW 


002206 


G 


BTC 


002774 


G 


CRLF 


005213 G 


C$SEFG- 


000046 




EXPBOT 


003440 


G 




BFSEQ 


0226 76 




an 


003046 


G 


CRLFSP 


005216 G 


C$SPRI- 


000041 




fcXSUB 


00/004 


G 




BFSEQO 


022722 




BT2 


003120 


G 


CTCC 


003376 G 


C$SVEC- 


000037 




EJEND « 


002100 






BFSEU1 


022774 




BT3 


003172 


G 


CVC.C - 


040000 G 


CiTPRI- 


000013 




F.U.OAD' 


000035 






BFSEQ2 


023006 




CHAR 


002216 


G 


C*AU - 


000052 


DATARD 


003336 


G 


FATSM 


004 37 3 


G 




BFSEQ3 


023100 




CHARM 


026376 




C*AUT0» 


000061 


DATAWT 


003534 


G 


FIRSIU 


015452 


G 




BFSEQ4 


023152 




CHGFLG 


002212 


G 


CSBRK - 


000022 


DATCNTi 


004000 


G 


FNT.CO 


000040 


G 




BFSEQ5 


023214 




CHGM 


026352 




OBSEG' 


000004 


DEVTBL 


002532 


G 


FMT.C1' 


• 000100 


G 




BFSEQ6 


02326b 




CHKERR 


011456 


G 


C*BSUB« 


000002 


DFPTBL 


002174 


G 


FTLCNT 


003314 


G 




BFSF.Q7 


023320 




CH.EAI- 


000040 


G 


CiCEFG- 


000045 


DFTSCH- 


000040 


Ci 


FUNRM 


004353 


G 




BF5EQ8 


023352 




CH.ERI- 


000020 


G 


CICLCK- 


000062 


DIA 


100006 


G 


FSAU 


« 000015 






BFSEQ9 


023404 




CH.ESS- 


000200 


G 


CtCLEA' 


000012 


DIABI.K- 


003334 


G 


f<auto- 


' 000020 






BFSE10 


023426 




CKDATA 


015036 


G 


C$CL0S« 


000035 


DIACNT' 


000020 


G 


F" . iGN ' 


■ 00004 






BGNFLG= 


003404 




CKDCNT 


015446 




CICLPl- 


000006 


DIAGMC- 


000000 




FiCLEA- 


» OCOOO/ 






BINC 


01436b 




CKDFT 


015450 




cscvec- 


000036 


DINT 


002210 


C 


FJDU 


• 000016 






BITO * 


000001 


G 


CKHAE 


016060 


G 


CiDCLN- 


• 000044 


DINTM 


026276 




FSEND 


' 000041 






BITOO - 


000001 


G 


CKHRTN 


016146 




CSDODU' 


• 000051 


DLY 


000020 


G 


h $HARD 


■ 000004 






BIT01 * 


000002 


G 


CLN 


101012 


G 


CtDRPT- 


• 000024 


DLY.C » 


000020 


G 


FtHW 


■ 000013 






BIT02 = 


000004 


G 


CLRERR 


011154 


C 


C*DU • 


• 000053 


DRI 


100013 


G 


FIINIT' 


■ 000006 






BIT03 * 


OOOOIO 


G 


CLRFLG 


002202 


G 


CREDIT" 


■ 000003 


DROPOM 


004616 


G 


F*JMF < 


■ 000050 






BIT04 - 


000020 


G 


CLRM 


026102 




CtERDF« 


- 000055 


DROPED 


003446 


G 


FIMOD 


• 000000 






BIT05 = 


000040 


G 


CMOAC 


007344 


G 


C*ERHR 


■ 000056 


DROPN 


015.-74 




F$MSG 


■ 000011 






UIT06 - 


000100 


G 


CMDA5C 


003650 


G 


CiERRO' 


■ 000060 


DROPU 


015554 


G 


F$PROT 


• 000021 






BIT07 - 


000200 


G 


CMDD 


002220 


G 


CiERSF 


■ 000054 


DROPUA 


015704 




FJPWR • 


■ 000017 






BIT08 = 


000400 


G 


CMDLG 


003354 


G 


CiERGO 


• 000057 


DRORTN 


015762 




F$RPT 


« 000012 






BIT09 = 


001000 


G 


CMDPKM 


004102 


G 


CJESCA 


• OOOOIO 


DTAERM 


005224 


G 


F$SEG 


■ 000003 






BIT1 - 


000002 


G 


CMDPKT 


002310 


G 


CJESEG- 


• 000005 


DIAER2 


0046 J 7 


G 


FJSOFT 


< 000005 






BIT10 - 


002000 


G 


CMDSAV 


003350 


G 


CiESUB- 


- 000003 


DTAER3 


004 746 


G 


F$SRV 


■ OOOOIO 






BIT11 * 


004000 


G 


CMOSEQ 


003460 


G 


CiETST- 


■ 000001 


DTAER4 


005010 


G 


F$SUB 


- 000002 






BIT12 - 


OlOOOO 


G 


CM0SE2 


0034 70 


G 


C1EXIT 


• 000032 


0TAER5 


005031 


Ci 


F$SU 


■ 000014 






BIT13 * 


020000 


G 


CMOTBL 


003562 


G 


CiGETB 


■ 000026 


e:f .con- 


000036 


G 


K$TESr 


■ OOCOOl 






RIT14 ■■■■ 


040000 


G 


CMOWRD 


003346 


G 


CiGETW 


• 000027 


EF.NEW- 


000035 


G 


GCMDA 


00741b 


G 




BTT15 -• 


100000 


G 


CMD.CO- 


000001 


G 


CtGMAN 


« 00004 3 


EF.PUR« 


000034 


G 


GENPAT 


010030 


G 




B1T2 - 


000004 


G 


CM0.C1- 


000002 


G 


CJGPHR 


• 000042 


EF RES- 


000037 


G 


GF.S 


' 10001/ 


G 




BITS - 


OOOOIO 


G 


CM0.C2- 


000004 


G 


CtGPLO 


- 000030 


EF.STA- 


000040 


G 


GETSTM 


00515/ 


G 




BIT4 * 


000020 


G 


CM0.C3- 


OOOOIO 


G 


CiGPRI 


■ 000040 


F.INC 


014374 




GIT 


010322 






BIT5 = 


000040 


G 


CM0.C4- 


000020 


G 


C*IN1T 


• 000011 


END 


177 7 n 


G 


GOWAIT 


010636 


G 




BIT6 - 


OOOIOO 


G 


CMD2M 


026423 




CJINLP 


- 000020 


ENDERF- 


003416 




GSCPK 


002320 


G 




BIT? = 


000200 


G 


CMD3M 


0264 76 




C*MANI 


< 000050 


ENDFLG- 


003452 




G$CNTO 


• 000200 






BIT8 = 


000400 


G 


CM04M 


026504 




C*MEM 


• 000C31 


ENDSP 


026100 




GSDEL.M 


* 0003 72 






BIT9 


OOiOOO 


G 


CMD5M 


026512 




CJMSG 


- 000023 


ENDSP1 


025 706 




GiDISP 


• 000003 






bOE 


000400 


G 


CM06M 


026520 




C$OPEN 


- 000034 


END5P2 


025710 




GiEXCP 


- 000400 






BORERS 


013576 


G 


CMD7M 


026526 




C$PNTB 


• 000014 


EOTFLG 


003426 


U 


GSHII.I 


- 000002 






BPCRM 


0264 31 




CM08M 


026534 




CiPNTF 


• 00001/ 


ERCVER 


002205 


G 


GSLOLI 


* 00000 1 






BRCPK 


002324 


G 


CNTBGN' 


002554 




CSPNTb 


- 000016 


ERLQU 


003412 


G 


U5NU 


8 000000 
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G$OFFS» 
GSOFSI* 

G$PRMA- 

GSPRMD- 

G$PRML- 

G$RADA= 

GJRAD6* 

GSRADD- 

G$RADL* 

G$P.A00» 

G$XFER= 

GtTftS * 

HAE 

HAEM 

HALTH 

HELP = 

HOE 

HRDCNT 

IBE 

IDU 

IER 

IE.C * 

INITIO 

INIT15 

INI T 16 

INTf-LG 

INTPRI* 

IRE 

IREC 

IRECM 

IREM 

I5R 

IXC 

I'/AU r. 

I$AUTO- 
IfCLN - 
I SOU * 
I$HRD * 
I UNIT* 
I$MOD -• 
IJMSG 
ISPROT 
IiPTMB- 
I5PUR * 
ISRPT = 
I5SEG - 
1ISETU* 
ISSFT - 
IJSRV = 

T *«;».« * 
m r >T = 

Jl oc 

JLOOP 



000400 

000376 
000001 
000002 
000000 
000140 

oooooo 

000040 
000120 

000020 

000004 

000010 

002204 

026150 

004042 

OOOOOO 

100000 

003304 

01OO00 

000040 

020000 

000200 

017 704 

020132 

020152 

003416 

000340 

00344b 

0022 11 

026225 

026321 

000100 

C04000 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000041 

000040 

000041 

000041 

000041 

00004 L 

00004 1 

00004 1 

00004 1 

000041 

000041 

003^/2 

00337Q 



U 



JMP 

JMPMSG 

JMP.C - 

JiJMP - 

LENMSK 

LOE 

LOG 

LOT 

LiACP 

L*APT 

L$AU 

LIAUT 

L5AUT0 

L$CCP 

L$CLEA 

L$CO 

L$DEP0 

L$DESC 

L*DESP 

L$DEVP 

LJDISP 

L$OLY 

L$DTP 

L*DTYP 

L$OU 

L*DUT 

L$DVTY 

L$EF 

LtENVI 

LJETP 

LtEXPl 

HEXP4 

L*EXP5 

L SHARD 

I.IHIME 

L$HPCP 

LiHPTP 

L$HW 

LUCP 

LUNIT 

LSLADP 

L5LAST 

LJLOAD 

l.$LUN 

LtMREV 

LINAME 

L$PWI0 

Li PRO! 

LiPRT 

LJRfcPP 

HRFV 

ljrpi 

L*SOH 



000040 

0264/4 

000040 

000167 

003356 

040000 

014102 

000010 

002110 

002036 

021770 

002070 

021232 

002106 

021654 

002032 

002011 

002136 

00^076 

002060 

002124 

002116 

002040 

002034 

021716 

002072 

00?164 

002052 

002044 

002102 

002046 

002064 

002066 

025266 

002120 

002016 

002022 

002174 

002104 

017 704 

002026 

026 746 

002100 

002074 

002050 

002000 

002042 

0176 76 

002112 

002062 

002010 

016150 

025340 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 

C: 

G 
G 

G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
('■ 
G 
G 
Ci 
(> 
G 



L$SP r 
LJSPCP 

L $SPTP 

L$5TA 

L$SW 

L$TEST 

LtTIML 

LSUNIT 

L10000 

L10001 

L10002 

L100C3 

L 10004 

L 10005 

L 10006 

L10007 

L10010 

L10012 

L10C13 

L10014 

L10015 

L10016 

L10017 

L 10020 

L10021 

L 10022 

L 10023 

L 10024 

L10,25 

L 10026 

L 10027 

L 10030 

L10031 

L10032 

L10033 

L10034 

L10035 

L 10036 

L 1005 7 

L10040 

L 10041 

1.10042 

L 10044 

MBR 
ME MOM 

misck; 

MOD. CO « 

MOO. CI - 

M00.C2- 

M0D.C3- 

MOVMSG 

MSGCNT- 

MSGPKA 



002056 

002020 

002024 

002030 

002202 

002114 

002014 

002012 

002200 

002310 

005370 

006314 

006322 

006^30 

006336 

006344 

017674 

021230 

021520 

021714 

021766 

022062 

023450 

022216 

022242 

022262 

022302 

022322 

022342 

022362 

C22402 

022422 

022442 

022500 

022664 

024124 

024270 

024422 

025262 

025336 

026542 

026752 

026756 

100012 

021126 

003455 

000400 

001000 

002000 

004000 

1 1 ?24 

00001b 

002502 



MSGPKT 
MSGPKO 
MSGPK* 
MSGPK2 
MSGPK3 
MS. RFC- 
MS. XSO" 
MS.XS1- 
MS.XS2- 
MS.XS3- 
NCMD . C - 
NCNT 
NCNT1 
NEXTSP 
NEXTU 
NINUSE- 
NOINTM 
NRDYM 
N5SRM 
NUMBM 
NURTY1 
OFLINM 
ONEFIL- 
OPFLAG 
OPP.C - 
OSAPTS- 
0$AU - 
0$BGNR» 
OiBGNS- 
0$DU • 
OIERRT- 
0*GNSu« 
OJPOIN- 
OtSETU- 
PA5CNT 
PATCH 
PATERN 
PATRO 
PAfRl 
PATR2 
PATR3 
PATR4 
PATR5 
PATR6 
PAFR7 
PATR8 
PATTBL 
PATTM 
PCMDWD 
PIRE 
PNT 
PRI 
PR 100 - 



002334 

002352 

002370 

002406 

002424 

000004 

000006 

000010 

000012 

000014 

177740 

003340 

003342 

025406 

015520 

177774 

004421 

021616 

004271 

02644 3 

005073 

005127 

000001 

003456 

020000 

OOOOOO 

000001 

000001 

000001 

000001 

OOOOOO 

000001 

000001 

000001 

003254 

02654? 

003374 

01011.4 

010152 

010172 

010202 

010226 

010240 

010252 

010272 

010324 

010072 

026463 

003352 

002214 

001000 

002000 

OOOOOO 



PRI01 * 

PRI02 - 

PRT03 - 

PRI04 - 

PRI05 » 

PRI06 - 

PRI07 - 

PRXST 

PTCMDS 

PWRFLG 

RANB 

RAN8C - 

RANCMD 

RANDOM 

RANP " 

RANRD 

RAN3 

RANSC - 

RANW 

RANWR 

PANUV 

RCVERM 

RDF 

ROR 

RECCNT 

RECLOG 

RECREO 

RECTAP 

RECUD 

REPEAT- 

RERM 

RETR> * 

RETR1C 

REWRT 

RFBC 

Rf CERM 

RFREC 

RFUNR 

RLEXM 

RW 

RNOPSC* 

RNR 

RNiM 

RPF 

RPR 

RPTCNT 

RPTFLG 

RPT1A 

RPT1B 

RPTIC 

RPT1D 

RpriE 

RPT1F 



000040 
000100 
000140 
000200 
000240 
000300 
000340 
015776 
025134 
003453 
003360 
153624 
C23732 
003441 
000007 
023772 
003362 
032561 
024072 
024046 
024060 
026174 
104001 
104401 
003324 
003411 
006312 
006346 
011310 
050224 
004550 
050222 
003404 
013752 
002654 
004254 
002754 
002764 
004310 
125401 
17/740 
105401 
004504 
105001 
125001 
003406 
003443 
017012 
017067 
017140 
01/211 
01 .'4 3.* 
01 *'51b 



G 
G 

G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
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RPT1G 

Rprii 

RPT1J 
RPTIK 

RRANV 

RRBC 

RRF.CI. * 

RRREC 

RRUNR 

RRVM 

RTLE 

RTl.RTN 

RWCPK 

RWD 

RWERR 

R5SAVE 

SCCNT 

SCERM 

SCH 

SCHBK 

SCHCNT= 

SEQEND 

SfcTCH 

st: TRW 

SETUP 
SFF 

5FPTBL 
SFR 

SRF 

SRR 

STAERM 

STAER1 

STAER2 

STAER3 

STAER4 

STAER5 

STAER6 

STAER7 

STAFLG 

SVCGBL* 

SVCINS-- 

SvCSUB* 

SVCTAG 

3VCTST 

SUBFLG 

SWB.C -■ 

S*LSYM« 

TCCRA 

rcco 

ICC1 
TCC2 

TCC3 
TCC4 



017366 
017563 
017467 
017554 
002203 
002614 

000020 

002734 
002744 
026121 
012716 
013042 
002330 
102010 
003413 
003400 
003264 
004230 
140004 
002442 
OOOOIO 
003550 
006444 
0064 70 
00 7452 
105010 
002202 
105410 
104010 
104410 
0053 72 
005 704 
006062 
006141 
006177 
006217 
006026 
005776 
003452 
000000 
000001 

oooooo 

000000 

oooooo 

003444 

oioooo 

010000 
011700 
01 1 720 
Oil 736 
Oil 754 
012064 
012102 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



G 



G 

G 
G 
G 
G 



TCC5 

TCC6 

TCC7 

TC2RTN 

TIME! 

TIME2 

TOERM 

TOOMM 

TRAPD4 

TRAP4 

TSAM 

TSBA - 

TSC.FC- 

TSC.TC- 

TSDB 

TSSR 

TSSREG 

TSVCT 

TS.A16- 

TS.A17- 

TS.NBA* 

TS.NXM- 

TS.OFL- 

TS.RMR- 

TS.SC * 

TS.SPE- 

TS.SSR- 

TS,UPE- 

TS4ADR 

TS4CL 

TS4INT 

TS4IN0 

TS4IN1 

TS4IN2 

TS4IN3 

TS4VCT 

TtARGC 

T$COOE 

T*F.RRN 

TSEXCP 

TfFLAG 

T$FREE 

TJGMAN 

TiHlLI 

TSLAST 

T$LOLI 

T$LSYM 

TJLTNO 

TiNEST 

TJNSO 

TfNSl ■ 

TSNS2 --• 

T$PCNT= 



012552 

012650 

012700 

'12062 

003364 

003366 

004207 

004460 

003454 

021646 

0044 36 

002452 

177717 

177761 

002452 

002462 

003402 

0024 72 

000400 

00100C 

C02000 

004000 

00010' 

010000 

100000 

020000 

000200 

040000 

025312 

002522 

002512 

006316 

006324 

0063.32 

006340 

025327 

000003 

023004 

000001 

oooooo 

000041 
026756 
OOOOOO 
000010 
000001 

oooooo 

010000 
000005 
177777 
OOOOOO 
000005 
000002 
OOOOOO 



G 
G 

G 

G 
G 
G 
G 

G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 

G 

G 
G 
G 
G 
G 



tw 



T$PTAB 

TSPTHV 

T$PTNU 

T$SAVL 

T$SEGL 

T$SIZE 

USU8N 

TJTAGL 

TSTAGN 

T$TEMP 

T$TEST 

T$TSTM 

T5TSTS 

T$$AU 

T$*AUT 

T $*CLE 

TiiOAT 

T $ OU 

T$$HAR 

T$$HW 

TMINI 

T$$MSG 

T$$PC 

T$$PRO 

T$*PTA 

T$$RPT 

TitSOF 

TMSRV 

Tissue 

T$$SW 

T$$TES 

Tl 

TlSWB 

Tl.l 

T1.10 

Tl.ll 



Tl 
Tl 
Tl 
Tl 
Tl 
71 
Tl 
Tl 
U 



12 

2 

3 

4 

5 

6 

7 

8 



T2 

13 

T4 

T5 

I5WE0T 

UAM 

UN'' 

UHRtC 
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010043 

000001 

000001 

17"'777 

17777/ 

000004 

OOOOOO 

177777 

010045 

OOOOOO 

000005 

177777 

000001 

010016 

010013 

010014 

010044 

010015 

010040 

010000 

010012 

010003 

000001 

010011 

010043 

010010 

010041 

010007 

010033 

010001 

010037 

022064 

00344 7 

0220 74 

022424 

022444 

022530 

022220 

022244 

022264 

022304 

022324 

022344 

022364 

022404 

023452 

024126 

0242 72 

0244 24 

025156 

000200 

1004 12 

003414 



SEQ 0180 



URERM 


004572 


G 


VFEXC 


014504 


G 


VFISU 


014/50 


G 


VFYCNT 


003274 


G 


VFYDAT 


014402 


G 


VFYFLG 


003442 


G 


VFY.C - 


000100 


G 


WLKZRO 


010206 




WRBC 


002554 


G 


WRECL - 


00C020 


G 


WRR 


105005 


G 


UHRF.C 


002 714 


G 


WRT 


104005 


G 


WRTY 


013044 


G 


WRTYCT 


003244 


G 


WRTYER 


003410 


G 


WRTYFG 


003407 


G 


WRUNR 


002 724 


c; 


USSR 


011170 


G 


WTM 


100011 


G 


WTR 


101011 


G 


WTV 


104105 


G 


WTVERM 


004164 


G 


WTYBRF 


013370 




WTYCMD 


013364 




WTYWRD 


013366 




XiALUA- 


OOOOOO 




X$FALS« 


000040 




XiOFf-S« 


0C0400 




XJTRUE- 


000020 




XO.BOT' 


000002 


G 


XO.EOT' 


000001 


n 


XO,LET> 


• 020000 


G 


XO.ONL' 


• OOOiOO 


G 


XO.RLL' 


• 010000 


G 


XO.Rl.S' 


« 040000 


G 


XO.TMK 


■ 100000 


G 


X2.0PM- 


• 100000 


G 


X3.DCK- 


• 000010 


G 


X3.RNY 


• 157400 


G 


ZROPAT 


010i56 




$BGNLE 


• 1777/7 




JERFLG 


• 000400 




:*'$and 


• 000310 




*F$BAD 


■ 000401 




IF'iBLA 


■ 000170 




$F$CAS 


• 000150 




H'IDEC 


■ 000220 




iF$00 


- 000340 




$F*F AL 


* 000405 




U U'.OO 


- 0004 OC 




SFSXF 


J 000110 




$F$INC 


> 000210 





$F$LOO- 
$F$NAM» 
SF$NU - 
SFJOR - 

$F$RTN- 
$F$SEL- 
*F$THE- 
$F$TRU« 

SFtUNT* 
$F$WHI* 
»F*tfES« 
HFLEV* 
SISKO - 
•ISKl - 
5ISK2 - 
$ISK3 * 
$ISK4 » 
$I C K5 - 
$1SK6 = 
*LOCfA= 
$L5TCN= 
JUSTIN- 
*LSTST» 
$L5TIA- 
JMCALU- 
SNESTL* 
JNSKO « 
$NSK1 - 
$NSK2 ' 
$NSK3 - 
SNSK4 - 
iNSK5 - 
JNSK6 - 
5 5AVLC ■■• 
$SSK0 
JTAGLE - 
$TAGNU- 
$TEHP * 
ITSKO ■ 
$ T SK 1 * 
$TSK2 - 
JTSK3 - 
STSK4 - 
JTSK5 * 
JTSKfa « 
*TSK7 - 
$$ARGO 
MB^ TE = 
•iCASE- 
MDST - 
$*t.LUC* 
**ERf L 
5SFLAG- 



000200 
000160 
00040 3 
000320 
000300 
000140 
000330 
000404 
000130 
000120 
000402 
177777 
000001 
000001 
000001 
000001 
000001 
000001 
000001 
17/77/ 
17/777 
000001 
17 7 7 7 7 
000001 

oooooo 

177777 
000120 
000120 
000110 
000110 
000110 
000110 
000110 
177777 
050452 
177777 
0504 70 
000402 
050451 
050452 
050453 
050454 
050467 
050466 
050462 
050464 
OOOOOO 
000403 
OOOOOO 
OOOOOO 
000402 
OOOOOO 
000001 



PARAMETER CODINU MACU1 50C1046) Ob -APR -84 08:51 
CZTSHD.P11 06 APR -84 08:49 SYMBOL TABLE 
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M14 

184 



SLQ 0181 



<UROM* 000000 

$$LOC - 025072 

$$LOCN= 000000 

. ABS. 02b 756 



000 



*$REG * 177?77 

$$RETU- 000000 
$$RTN1> 000000 



$*RTN2- OOCOOO 
$$SRC - 000000 
$4TGSV* 000000 



*$TGS1* 000000 
$$TG52- OOOCOO 
$$T0 B 000000 



$$$TAG-- 050000 
* 026756 



ERRORS DETECTED: 

CZTSHD.CZTSHD/SOL/tQjONEFILb'SVC.SML.SPMAC.SML.CZTSHD.Pll 
RUN-TIME: 132 138 ,8 SECONDS 
RUM-TIME RATIO: 347/271=1.2 
CORE USED: 31K (62 PAGES) 
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